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ad Phase II start message 
RCV_STRS = Received Phase III start message 
RCV_STR4 = Received Phase IV start message 
RCV_VRF = Received routing verification message 
RCV_RHEL = Received Phase IV Router Hello message 
RCV_EHEL = Received Phase IV Endnode Hello message 
RCV_RTS = Received Phase II] routing message 
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UPDATE MATRIX = Update the routing matrix 
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UPDATE = Update database and neighbors 
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FIND_PATH_TO_ NODE = Find least cost path to node 
AREA_DECISION - Update area forwarding database 
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PD_NEIG - Schedule routing messages 
4 TIMER_XRT = Automati rout ing update timer 
Start automatic routing update timer 
7 ENDNODE DECISION = Endnode decision algorithm 
685 ACT_ENT_MOP = Enter MOP state 
2 ACT-DLL_UP = Datalink has initialized 
1 DLE=related state changes 
y ACT_RUN_DOWN, ACT_SET_OPER 
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ART = Check if circuit can be started 
E- Shutdown and startup Line 

XMT = Transmit pending messages 
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MT_VRF = Transmit verification message 
XMT_RT = Transmit a routing presces 
XMT_RT4 = Transmit a Phase I¥ routing message 
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Fix code which accidentally drops an area peut ine message 
on a potat~tenpe int circuit when it is received before the 
circuit can be changed into the ‘‘run’’ state (this is a 
race condition, and will occur whenever the remote node 

is faster, and can send routing messages quickly after 
node initialization; e.g. RSX). The Symptoms are that 

the remote area is ‘‘unreachable’’ for up to 3 minutes, 

even though the circuit has initialized. 


v039 TMHOO39 Tim Halvorsen 24-May-1984 
Remove CANCEL on DLM circuits our ioe shutdown (TMHO036) 
wach turned out to act Like a DEACCESS, and removed all 
X.25 level 5 knowledge of the outstanding reset status, 
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puting the circuit i ate 
nly {Ssup an PVC ACC ¢ Life of the circuit 
ngening t at circuit re-initialization due to a remote RESET 
will just issue a RESET-CONFIRM and transmit a ‘‘Start’’ msg. 
Just issue a ‘reset confirm’’ when we get notification of an 
incoming reset message - the failed receive IRP will be 
sufficient mechanism for recycling the circuit. (This 
obsoletes ACT_RUN_RESET). 
When exiting Ehe fun state for any reason (Like either 
software error or remote reset), issue a reset message to 

the remote side to ensure that it recycles thru node init. 
Minimize the computation of the Square Root Limit result with 
the maximum allowed value of 127. 


v038 TMHOO38 Tim Halvorsen 22-Apr-1984 
Wait a few seconds after gireuts initialization before 
declaring ourself the designated router. This is so that 
we give some time to receive Router Hello messages from 
remote nodes which might have a Bigher priority than us. 
When the decision oLger rine can't decide between two paths 
of equal cost, use the highest node address of the adjacent 
nodes as the tiebreaker. 


v037 RNGO037 Rod Gamache 7-Feb-1984 
Fix problem where if 2 Level II routers where in different areas 
and there are no other nodes _in their respective areas, then 
the remained ‘‘unreachable’'! This has to do with the fact that 
the RTG_CHG flag never got set, so the decision algorithm was 
never run. 


v036 TMHO036 Tim Halvorsen 15-Sep-1983 
When a X.25 reset mailbox message is received while doing 
PVC_START initialization, ignore it, since PVC_START always 
does a ‘‘reset confirm'’ as the last thing it does. [his 
prevents a duplicate Reset from being sent, and prevents 
aborting the remote side's node initialization if it gets 
it after starting node init. 


When a X.25 reset mailbox message is received during node 
init, restart the entire node init process, rather than 
ignoring it, since it is possible that a node init message 
got lost in the PVC reset. 
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Issue CANCEL on DLM circuits during shutdown to clean up 
outstanding PSI requests, such as outstanding resets. 
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Fix code which accidental ly drops a routing message on a 
point-to-point circuit when it is received before the 
circuit can be changed into the ‘'run’’ state (this is a 
race condition, and will occur whenever the remote node 
s faster, and can send routing messages quickly after 
node initialization; e.g. RSX). The Symptoms are that 
the remote node 5 unreachable’ for up to 5 minutes, 
even though the circuit has initialized. 


v035 TMHOO3S Tim Halvorsen 11-Jul-1983 
Support alias local addresses (cluster addresses) by 
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zeroing the cost/hops entry for that address in routing 
messages. 
v034 TMHOO034 Tim Halvorsen 06-Jun-1983 


Detect null passwords from RSX Phase III nodes, which 
are sent as 8 bytes of 0, rather than a 0 byte string. 


v033 TMHOO33 Tim Halvorsen 25-May-1983 

Fix BC circuit rundown so that it calls DLESBC_DOWN 
even though we are an endnode. evry *euety if we were 
an endnode, it was skipping the call and leaving the 
channels assigned, preventing further service functions. 
Use our own node type (in the LPD) to determine what kind 
of message to send, rather than using the remote node's type 
and jamming his type to Suppor § TRANSPORT TYPE. This is 
basically a cleanup of the 
the effective Ot 907 FSARe 

hase resynchronization which caused our 


ogic, and should not change 


his start msg before successfully initiating the transmission 
of our start msg. 


v032 TMHOO32 Tim Halvorsen 17-May-1983 
Fix bug in version checking in the error path which 
crashes the system. 


v031 TMHOO31 Tim Halvorsen 06-May-1983 
Fix bug in endnode decision algorithm which prevented 
endnodes from talking to other endnodes over point-to-point 


circuits. 
v030 TMHOO30 Tim Halvorsen 26-Apr-1983 
Log ‘dropped by adjacent node’ when we receive an 


‘1*m going away’’ RHEL from a remote node. 

Require verification passwords from Phase III nodes 

fur'ing point-to-point node init. to prevent accidental 
n 
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merg of area address spaces via an intermediate 
Phase III node between them. 

v029 RNGOO029 Rod Gamache 20-Apr-1983 
Fix branch destinations out of range. 

v028 TMHOO28 Tim Halvorsen 06-Apr-1983 


Fix code which attempts to ignore Troneger’ data packets 
when parsing messages from new adjacencies. 
ALlow no more than 20 outstanding transmits (of routing msgs) 
on an NI circuit, to prevent queue pileup of a stuck datalink, 
and fo prevent too much storage from being tied up in such a 
condition. 
Remove oqane obsolete symbols 
If NBRA is exceeded when tr ing to add a new BRA, then eject 
the Lowest priority BRA (rather than simply ignoring the new 

). This wey, 8 L BRAs eject the same node from the 
‘cluster’ of BRAs. Log ‘adjacency rejected’ when a BRA is 
thrown out due to the database being full. 
Log ‘‘address change’’ reason when a remote adjacency is detected 
to have recycled, rather than ‘‘listener timeout’. 
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v027 TMHOO027 Tim Halvorsen 02-Mar-1983 
Completely rewrite DLE handling. 
Fix bug which caused BUFFAIL conditions to leave an LPD 
in the off-synchronizing state if the last message sent 
to the ACP for the LPD was ignored. 
Force the cost/hops to infinity when the area becomes 
unreachable, to speed up process of an area going ouey. 
Set flag in RCB if we are allowed to use level 2 routing 
or not = set false if we detect ourselves to be an isolated 
area router. 
do ney OF sen transport type other than Phase IV on broadcast 
circuits. 
Adapt to Phase III endnodes properly by acting as a Phase 
III router (rather than a Phase III endnode). 
Change size of hello timer in Start, RHEL and EHEL messages 
to be a word rather than a byte, and add temporary code to 
continue to receive messages in the old format (1 byte hello). 
Remove code to parse/save seed value from messages. It i 
never looked at. 
Send ‘I'm going away'’ message (empty RHEL) when a BC circuit 
is nenyal Ly turned off. 
Fix code which attempts to allow more than one area to coexist 
on the NI by disallowing Level2-level! connections, by dropping 
level 1 routing messages from other areas even if we're an area 
router, and by discounting nodes in other areas while electing 
a designated router. 
Rather than sending out RHELsS every second if there is at least 
one l-way connection, send out RHELs only if it has changed 
since the last time we sent one. This prevents RHELs every 
second in the event that a connection is stuck in l-way mode. 
Remove incorrect check which required a remote Phase IV router 
to have it's block size large enough to hold an entire routing 
message - this check should only be done for Routing III nodes. 
Remove obsolete XMT_RESTR mechanism - it assumed that incorrect 
implementations of Phase III nodes could accept a Phase IV 
start because it looked Like a Phase III start. This is not 
the case - Phase IV node numbers make them unacceptable to any 
Phase III node. 
Dally for a few seconds before sending the initial start msg. 
This gives us a chance to hear the remote node's start message, 
and figure out what he is, before sending him a Phase IV msg 
he may not Like (some implementations can't handle Phase IV 
messages, even to ignore them). 
Remove code which ‘‘remembers'’’ the remote node's type over a 
circuit recycle. This was the old method of phase resynch, 
but was error prone when patching different systems of 
different types into the same Line. 


v026 TMHOO026 Tim Halvorsen 24-Jan-1983 
Fix bug which prevented forced Phase III circuits to 
endnodes from correctly detecting the remote node as 
a Phase III endnode. 
Allow LPD to be set as a Phase III endnode, so that 
we can adapt to remote Phase III routers as an endnode. 
This means changing all endnode checks to check for both 
Phase III and Phase IV endnode node types. 
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Fix bug in code which tries te prevent sending of routing 
messages for forced-endnode circu ts - ween’ F clearing 
the work flag, and we went into an infinite loop. 

Init cell in LPD which gives the datalink buffer size 

and use it throughout, rather than the RCB value. This 

is so that datalink buffer sizes can be variable depending 
on the datalink’s route header. 

Remove any maximum on a circuit's “input packet Limiter’. 
Fix bug in computation of ‘'nearest level 2 router’’ that 
ore causing it to be wiped out on partial decision 
algorithms. 

If the MAXIMUM WINDOW parameter is spegified. hen use it 
as the sree packet Limiter for non-X.25 circuits. This 
gegen tat y eupente the usage of MAXIMUM WINDOW to both 

X.25 and non-X.25 circuits. 

Add endnode key support. 

Prevent transport-type from being set to a router if 

the executor is set to an endnode. 

Add code to toggle a DMC Line on Listener timeouts. 

Fix forced-phase III circuits to correctly ignore messages 
with versions aiqner than phase III, so that node init 
with higher version nodes works correctly. 


v025 TMHOO25 Tim Halvorsen 08-Jan-1983 
Add Decision Update Vector which gets updated any time 
a routing message is received which is different than 
the Last one we heard from the same place. It is used 
to Limit the number of nodes which need to be looked 
at in the Decision algorithm. 
Fix loopback check for forced Phase II Links to work 
(it was broken by areas in the local address). 
Journal new records at the start and finish of the 
decision algorithm, so rousing analysis can be done. 
Journal all messages written directly to the datalink 
via Q10 from this routine. 
Remove restriction that prevents a Phase II circuit 
from initializing if the partner node is already 
reachable in another part of the network. This was 
a restriction needed for the Phase II routing architecture, 
and is no Longer applicable for the current needs of 
Phase II circuits. 


v024 TMHOO24 Tim Halvorsen 17-Dec-1982 
Re-arrange rece lvee message dispatching to locate the 
CNF, LPD and ADJ blocks before parsing the message. 
Ignore ail messages on NI from another area if we 
are a level 2 router. 
Fix circuit peccyct ing. so that startup attempts wait 
for NETDRIVER's IRPCNT in the LPD to go to zero before 
recycling. Prevents late breaking CRDs from interrupting 
the next circuit startup attempt, resulting in TWO Line 
Bynchrent set ion lost events. 
Fix calculation of routing update loss for Phase IV 
route messages, so that i correctly uses the highest 
reachasle node, rather than the highest unreachable 
node. 
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v023 TMHOO23 Tim Halvorsen Pi spece196¢ 
Fisagce Listen timer for Phase II Links, since Phase 
Il didn't have any mandatory hello timer. 
Make RECALL TIMER parameter work for ail types of 
circuits, to give control over Initialization retr 
attempts. Increase size of default interval from 
seconds to 10 seconds to cut down on overhead when 
a datalink goes down, especially if the datalink is 
going up and down continuously. 


v022 TMHOO22 Tim Halvorsen 13-0ct-1982 

Select incoming DLM ¢*reults by DTE address, 

if specified on the incoming circuits. 

Fix so that a full routing message is sent 

when a new BRA enters the run state ‘propagating 

the database very ovrente for the new node). This 

is done by the existing BRA, because the new BRA's 
request for routing info" (a A gh msg) may have 

been dropped by all routers while waiting for 2-way 

communication to be established. 

Add area routing support. 

Fix bug which prevents values of MAX RECALLS greater 

than 127 from working (sign bit was porns tested). 

Fix bug in out — calls which constructed an illegal 

PSI nee by either the WINDOW SIZE or MAXIMUM DATA were 

specified. 

Change order of ‘MOP detected’’ events, so that Line synch. 
lost comes out before remotely initiated state change. 

Set the local cost/hops for endnodes to 0, since the 

decision algorithm is never run (which does it normally). 

Only reset partner node type every other startup attempt, 

so that if a startup attempt fails due to wrong version, 

then the next one will start with the right version. 

Force the cost/hops to infinity when the node becomes 

unreachable, to speed up process of node going away. 


v021 TMHOO021 Tim Halvorsen 26-Sep-1982 
Do not allow BLOCKING parameter to be preci {ted 
since we don't currently support X.25 blocking. 
Add endnode support. 
Fix bug in_point-to-point initialization with 


endnodes. 
v020 TMHOO20 Tim Halvorsen 20-Sep-1982 
Fix ‘phase resynchronization’’, so that if we are the 


higher phase, then process the start message received 

from the other side (since the lower phase won't ever 
retransmit it). 

Allow “Late arrival’’ of start and verification messages 

to take care of phase eriyachrentsetton problems. OA wos 
Fix bug n endnode handling which caused crash when 

the endnode came up. 
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v019 TMHOO19 Tim Halvorsen 30-Aug-1982 
Fix DLE cancel, so that it correctly causes the XwB 
to be aborted (prevents cons Stent? pupcheck: by using 
the full path ID, rather than the LPD index in all cases. 
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Fix transport resynchronization, so that the start message 
is not reset if we receive a higher phase start, but only 


we anette our start phase (essentially entering 
compatibil ty mode). 
Fix so that Phase II nodes are not included in Phase IV 


rout ng messages (and clean up the code a little by removing 
Phase II “OL vector’ and using the adjacency block instead). 
Allow Phase II node init from a node address greater 

than 241 (up to the phase III Limit of 255) to allow 

“forced phase I1'' gateways using ‘‘hidden nodes"’. 


TMHOO18 Tim Halvorsen 02-Jul-1982 

Don't ever modify the LPD$V_ACTIVE rag - that flag 

is only to be modified by NETORIVER, since it is used 

as a flag to decide whether the IRP_DOWN signal needs 

to be sent to the ACP or not. 

Fix bug in code which toggles the Line off and on when 

a fatal controller error is detected by the circuit. 

It was cous ine circuits to stay in the synchronizing 

substate, rather than roatarting themselves. 

Change psect name on DLLTRN state table, so that it is 

mapped after the main body of the ACP code and data. 

Add support for broadcast circuits (UNA). 

Change routines which reference local LPD and which scan 

LPD vector to use new LPD vector, which is a vector of 

Longword pecorere to the actual LPD blocks. Change the 

code which allocates LPD slots, to actually allocate an 

LPD structure from non-paged pool, and insert it's address 

into the LPD pointer vector. 

Remove the cost/hops matrix, and instead, allocate a cost/ 

hops buffer for each LPD as it gets initialized, and store 

the address of each cost/hops buffer into a new vector, 

based on LPD index. 

Remove DLL_COST vector, and instead, store and retreive 

the circuit cost from the LPD block. 

Add code to support adjacencies in conjunction with NETDRIVER. 

poe. coeee fe ensure that NUMBER is specified with OUTGOING DLM 
.25 circuits. 

Add wresion code to pass the maximum window and maximum packet 

size to PSI when making an outgoing DLM call. 

Change calling interface to PROC_EVT and DLL_PRC_WQE so that 

R1 doesn't have to be set to the event longword. 


TMHOO17 Tim Halvorsen 28-Jun-1982 
Enable use of X.25 datagrams by NETDRIVER. 

Store PS] UCB address in LPD for DLM circuits. 
Do not touch I0ST2 field in X.25 IRP, but assume 
that the datalink has gone down. 


TMHOO16 Tim Halvorsen 25-Mar-1982 

Fix bug in parsing of node address field for Phase I1 and 
Il messages. 

Heavily comment this module and add subtitles. 

Fix psect nentag onventions. 

Remove all explicit displacement specifiers from operands 


and make default di splacenent = word for the entire module. 
Remove X state, whic 


used to wait for a SHUTDOWN to complete, 
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but the W etete already does this. 

Remove transition which causes SHUTDOWN to be re-issued if 

a new access comes in. 

Get rid of CND_SHUT (action routine 7), change all references 
of CND_SHUT to a new reget ined action routine 2 (CND_STRT), 
which Tssues a startup Q10 if ASTCNT is zero. 

Remove IRP_EVT event, which was used to dispatch to IRP_DOWN 
or IRP_MM, based on the cqntents of the IRP. Now, this 
dispatching is done ugon immed erate receiving the IRP. 
Remove obsolete CNF_CRI event = no Longer referenced. 

Get rid of ACT_RCV_STRTIM (action routine 3), and cleanup 
the timer events to eliminate needless chaining. 

Cleanup 1/0 timer code. 

Add X.25 datalink support. 

Remove RCV_UNK event, since it didn't do anything. 

Log ‘packet format error’’ if we get en ye oh message. 
Change ACT_ENT_MOP to log the event 5.0 or 5.1 (datalink 
state change) when we go into MOP mode. 

Log “‘aborted service request, Line open error’’ if we are 
unable to create the detached NML process to handle remotely 
initiated service functions. 
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‘ -SBTTL Declarations 
; INCLUDE FILES: 
: SCCBDEF 


SDDTDEF 
SDEVTRNDEF 
SOLLQIODEF 
SEVCOEF 


SERRA LARA ELLE EES 


PRERRS 


; DNA architecture definitions 


ww 
2 
“” 
vo 

oz 

mo 

“Oo 
~J 
m 
~” 
s 


ww 
vw 
mn 
_ 
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m 
ns 
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; PSI user definitions (for PSI NCB structure) 


SoOoooooooooooooooo: 
SOooooooooooooooooooo 


00000000 
00000008 


00000084 
0000000A 
00000002 


00000005 


L =0 3 FDOT offset to legal functions 
PE = 2 ; FDOT offset to function type (but fer/direct) 


3*60 ACP datalink 1/0 timeout period (sec) 
10 Transport yy t retry interval (sec) 
ns | for 2 seconds before. penete start 
or resynch with dumb Phase III nodes 
ait at least 5 seconds sejere o Sect ar ine 
te RE ‘designated router’ ive us time 
to hear from other routers - ° e NI. 


SOOoooooooo 
>mrm 
“” 
— 
Do 
“4 
nun 
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-DRDELAY = 5 


Sete te Ge Ge te Ge 
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; Define Phase IV Transport message symbols 
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Foy oY oY oP ot oo tt ot at at at at oe UUM UMUmrteeteeee 
SNS SPP AA AAA AAA MII TTT 


0000008 fR “945 MSG ave = “B00001011 ; Phase IV ePayter Hello message 
18 TR4C_RHEC_LNG = gi ; Length of fixed portion n of message 
TROE™ “RAK RSLIST = 2356 «=; Maximum size of 
TR4V— oe RIO = 0 ; Start of router wt BS field in R/S LIST 
: TR4S_RS_PRIO = 8 ; Length of f ‘es 

TR4V-RS_TWOWAY = ; flag set if 2-way communication with | outer 

sitet 4 TR4C_MSG EHEL = “BO0O1 90 ; Phase IV Endnode Hello message 

00 0 TR4C-EHEC_LNG = 2 ; Length of fixed portion of message 

1 TR4C_MSG_STR = “B00000001 ; Start message type 1. 
f TR4C_STR_LNG = 1 ; Fixed start message | 

TR4V~REQ~ Nt = ; Start of TLINFO f eld” ~ oe Rt node type 


= Routin 
Declarations 


oS 
ie 


80000006 


090090 7 


Q000000A 
00000005 


00000006 
60000008 


0000000 
0000000 


00000001 
09000008 


6008 3 


0000007F 


SOOoooQoooooooooSo 
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F 
& Datalink control Layer 


TR4C_MSG_ENH 
C_TIVER 

RAC TSAULT 

TR4C~BCTSMULT 


Define Phase 
RS5C_MSG_STR 


STR_LNG 


C™STR_RSXL 


TR3C_MSG_RT 
TR3C"RT_CNG 


TR3C_MSG_RTH 


TR3C_TIVER 
Mestetst ha 
TR3C_TST_MAX 


‘st 


“B000000 
“B0000100 


“B0000011 


“B00000110 
went 


III Transport 


“B0000009) 


“B00000011 


64 
“B00000111 


1 
1 


“B00000010 


bea 


SEP 
SEP 
1 
4 
8 
4 
1 
6 
0 
5 
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L mech of the field 
Field value for area routing nodes 

Field value for routing nodes 

Field value for non-routing nodes 

TIINFO bit = set if verification is requested 
; Verification message type code 

3 Length of fixed portion of verfication msg 

; Verification message max length 

; Maximum password text Length 


3; Area rout ing message type code 
; Length of fixed portion of routing message 


3; Routing message type code 

; Length of fixed portion of routing message 
; Begining of COST field 

: Size of COST field 

; Begining of HOPS field 

3; Size of HOPS field 


; Phase IV endnode data packet - always ignored here 


Phase IV version = 2.0.0 
Hello/Listen factor for non-broadcast circuits 
3; Hello/listen factor for broadcast circuits 


message symbols 


; Start message type code 

; Fixed start message length 

;!RSX work around 

; Start of TLINFO field specifying node type 
Length of the field 

Field value for routing nodes 

Field value for non-routing nodes 

TLINFO bit - set if verification is requested 


Verification message type code 

Length of fixed portion of verfication msg 
Verification message max length 

Maximum password text length 


Routing message type code 

Length of fixed portion of routing message 
Begining of COST field 

Size of COS 6 

Begining of HOPS field 

Size of HOPS field 


Phase III/IV data packet - always ignored here 


Phase III version = 1.3.0 

Test thet tor message type code 
Maximum size of test data field 
3;!RSX work-around 
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; Number of test messages to send during 


3 TR3C_NUM_TST = 
3; acceptance testing. 


; Define Phase II Transport message symbols 


000000F F tr2¢ -MAX_PNA s 255 ; Maximum Phase II partner node address 
0000008 TR2C_MSG_NOP = *B00001000 ; a iran Ge type code 

sie 44d TR2C_NOP_LNG = 1 3; Mininum NOP goesage length 

0000000 TR2C— ~NUM_ NOP = 0 3 


Number of NOP me eto send to test the 
a 


circuit "aurine init zation 


$ 
$4 
a8 
44 
tg 
00000058 3} i3 TR2C_MSG_INI = “B01011000 ; Initialization message type code 
00000001 009 af TR2C_INI_STR = *B00000001 ; Initialization start sub-type code 
000 'n 00 26 TR2C_STR_LNG = 10 ; Length of fixed portion of start message ;! 
0000050 000 53 TREC_STR_MXL = 80 ; Max length of start message sf 
0000000 000 34 TROC“STR-FCT = = 890000000 ; Expected start message ‘‘function” field value 
0000006 4 5 TR2C_STR_REQ = *B0000011 ; Expected start wessoge “‘request’’ rete value 
0000000 88 2$ TR2V_REQ_VRF = 0 ; ‘request’ field modifier to request a 
00000001 000 57 TR2M_REQ_VRF = “x<01> ; verification messa age 
00000002 0000 58 TR2M_FCT_INT = “x<02> ; ‘function’ field modifier to show that the 
it 223 ; node does intercept functions 
0000000 it 61 TR2C_INI_VRF = *B00000010 ; Initialization verification sub-type code 
0000000 00 66 TR2C_VRF_LNG = ; Length of verf msg minus password. ength 
0000000 4 7 f TR2C_PSW_LNG = 3; Length of verf msg password 
444 2? Define common Routing constants 
00000044 8008 U4 R _C_VRF_LNG = TR3C_VRF_MXL : Maximum verification msg size 
00000040 0000 68 TR_C"MAX_PSW = TRSC_"MAX_PSW ; Maximum size of voritichtion password 
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Macros NETACP.SRC LLTRN.MAR; 1 
-SBTTL Macros 
: MACROS 
‘MACRO $LO0G code,qual1,qual2,reg ; Setup logging info 


Slog = evc$c_‘code’ 
B,quall, _$log = _$log + <<evc$c_'qual1'>a16> 


LIF N 
-IIF NB,qual2, _$log = _$log + <<evc$c_‘qual2'>a24> 
MOVL  #_$log,WQESW_EVL_CODE(reg) 
-ENDM $LOG 
MACRO SDSP_TABLE List ; Setup dispatch table 


MACRO $dspent _Sdspinx, S$dspact 


O09 00090909 0909090908 SII 


LIF GT, <_S$dspinx-_Smaxinx> Smaxinx = _$dspinx 
= “$tmp + <& * _$dspinxS 


DOOOSOOCSOOOSOSOOOSOSOSOSOSOOSOSOOSOSOOSOSSOOSO 


4 
8 
3 
3H 
3 ie 
000 38 
000 8 
$33 
000 $31 ‘address “Sdspact 
0000 598 ENON Sdspent’ * 
0000 594 mp =, 
0000 595 _Smaxinx = 0 
0000 238 ~ IRP a,<LIST> 
0000 9 Sespe 
0000 399 — 
bp 3 289 - = Stmp + <4 * $Smaxinx> + 4 
09 3 one -ENDM $DSP_TABLE 
ee 
00000010 00 6 $08 LEVSC_STATES = 16 ; Number of columns in the table 
FFFFFFFF 89 606 LEVSC_MAX_EVT = -1 ; Init the number of rows 
000 on8 MACRO S$LEV event, s, w.y. m, a,b,c,d,j. r ; Create state table entries 
43 4 : for the specified circuit event 
44h 611 LEVSC_MAX_EVT = LEVSC_MAX_EVT + 1 ; Bump max event value 
00 O16 LEV$C_ ‘event’ == LEVSC_MAR_EVT 3 Define circuit event symbol 
80 ai3 SENT S._$ ; Create table entry 
$16 SENT WoW 
61 SENT yy 
$18 
61 SENT m,_m 
$54 
6 SENT a,_a 
6 § SENT b,_b 
6 SENT C._¢ 
is ns 
626 = 
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Macros 1984 P.S NET DLLTRN.MAR; 1 
6 7 SENT Po¥ 
6 : SENT ?,_s8 ; Pad so that each row in the 
630 SENT 7,8 ; table is a multiple of 16 
631 SENT 7,8 3; $0 that the state table 
6 § SENT ?,_8 3; journal file is easy to read 
6 SENT To.8 
° 4 SENT 2,8 
5 .ENDM  $LEV 
39 
ae 
009 635 »MACRO SENT entry,def_sta 3; Create state table entry 
44 641 Sent = BLENGTH(entry)- -1 
444 O06 Tev$c_sta_. = lev$c_sta'def_sta'; Define default next state 
000 644 IF ION,entry,? 3 2 => bug 
0000 645 -BYTE Lev$c_sta_ : Use current state 
0000 646 “BYTE 4 3 Action is bug-check 
0000 647  IFF 
0000 648 -BYTE Lev$c_sta_Z%EXTRACT(O,1,entry); Setup next state 
0000 649 BYTE ZEXTRACT( (tT. _$ent,entry) 3; Setup action routine index 
0000 650 
0000 651 NDC 
0000 652 .ENDM SENT 


<z 
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Define circuit states SEP-19 


¢ ; -SBTTL Define circuit states 
$i Circuit LPD States (LPDSB_STI values) 
: $EQULST LEVSC_STA_,,0,1.<=; 
268 <$> -; Stopping: There is an active channel to the device but has 
661 “3 either been etepped or has been given a command to 
666 -3 stop. There may be timer or I/0 ast's pending. 
664 +; 
6 202 *) DATA LINK LAYER INITIALIZATION OR RESTART 
0 $6? <W> -; Shutting: A shutdown Q10 was issued, and completion pending. 
00 668 =; The device has been given a command to shutdown so 
444 669 - that it is in a known state prior to being started. 
4 er) <Y> *3 Starting: A startup Q10 was issued, and completion pending. 
6000 678 +; 
444 ore -; NORMAL MAINTAINANCE MODE STATE (MOP MODE) 
44 o76 <M> -3 Maintenance: In use by another process for service tunctions 
0000 679 = TRANSPORT LAYER INITIALIZATION 
0000 680 -; 
000 681 <A> -; Waiting for: xmt idle, rcv verf, rcv init 
000 6 § <B> -; Waiting for: xmt idle, rcv verf 
000 6 <C> -; Waiting for: xmt idle 
0000 684 <D> -; Waiting for: rcv verf 
$000 oe <J> - Und i ircuit t testi 
-; Undergoing circuit acceptance testin 
000 $B °3 _— . . 
B68 688 °3 
00 689 =3 NORMAL RUNNING STATES 
4 690 °3 
000 691 <R> -; Running: Available for normal traffic. 
0000 692 > 
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Define circuit transition action routine 5-SEP- NETACP.SRCIJNETDLLTRN.MAR; 1 (5) 


96 -SBTTL Define circuit transition action routines 
0000 $6 -PSECT NET_PURE,NOWRT ,NOEXE,LONG 
3 LEV_AL_ACTTAB: 
f p SDSP_TABLE - 
0 7 § <_0, ACT_NOP> -; Nop action routine 
: 7 <32, ACT_EXIT> -; Exit state table processing 
704 < 4, ACT_BUG> -3 pugehocn 
4 705 <11, ACT_NYI> -; No yet ine lenen ed 
7 $ < 2, ACT_QIO_STRT> -; If LPDSB_ASTCNT=0, 
i 4 -; Issue startup Q10, reset i/o timer 
0 708 <34, ACT Xg3_CALL? =; Accept incoming X.25 call on circuit 
4 709 <42, ACT_X25_RESET> -; Respond to X.25 reset during initialization 
0 710 <17, ACT _PVC_START> -; Startup PVC in multiple steps 
000 711 < 1, ACT_QIO_SHUT> -; Issue shutdown Q10, reset i/o timer 
t re < 6, ACT_RUN_SYNC> -; Synchronization lost in run state 
4 71 < 8, ACT“RUN_UXPK> -; Unexpected packet rcv'd in run state 
000 714 <16, ACT_RUN_SHUT> -; Shut down from RUN state 
44 ol? <39, ACT_ADJ_DOWN> -; Mark adjacency down 
0000 717 <18, ACT_DLL_UP> =; The datalink has initialized, begin next 
0000 718 -; phese (Transport or DLE) of activity 
0000 719 <10, ACT_ENT_RUN> -; Enter RUN state 
0000 720 <22, ACT_ENT_MPR> -; Circuit entered MOP mode while in RUN state 
0000 721 < 9, ACT_ENT_MOP> -; Circuit entered MOP mode 
0000 7 § <26, ACT_ENT_DLE> -; The circuit has become available for use by 
885 7 -; a server process for direct-Line access 
Bae f : <37, ACT_BC_UP> -; A broadcast circuit has initialized 
0000 7? § <19, ACT_XMT> -; Send a message if possible 
0000 7 <30, ACT_RCV_2STR> -; Respond to second rcvd ‘'start'’ msg 
0000 728 <1¢- ACT_RCV_STR> -; Respond to rcvd ‘'start’’ ms ; 
0000 729 <15, ACT_RCV_VRF> -; Respond to rcvd ‘‘verification’’ msg 
0000 730 <20, ACT_RCV_RT> -; Respond to rcvd Rout ing msg 
000 731 <29, ACT_RCV_RTA> -; Receive Routing msg while acceptance testing 
it 7 ; <35, ACT_RCV_ART> -; Respond to rcvd area rout ing ae 
00 ? <36, ACT_RCV_ARTA> -; Receive area routing msg while testing 
000 734 <40, ACT RCV_RHEL> =; Respond to rcvd ''Router Hello’ ms 
44 4 5 <41, ACT -RCV-EHEL> =; Respond to rcvd ‘‘Endnode Hello’’ msg 
Be 4 5 <44, ACT_ELECT> -; Elect Ist ‘designated router" 
3 7 : <43, ACT_FAILED> =~; Mark a circuit ‘failed’ 
0 740 <_5, ACT RUN_DOWN> -; Cancel all timers, etc. 2 
0 741 <31, ACT_SET_OPER> -; Simulate a “set operators state’’ event 
reg <15, ACTLEXI_SERV> -; Exit service state if neede 
744 <21, ACT_TST_DL> -; Run acceptance algorithm 
oe <23, ACT_REQ_UPDATE> -; Request routing database update 
° 28 <25, ACT_LOG_NFE> -; Log event 
re <24, ACT_LOG_CDE> -; Log event & shutdown circuit 
Ss <38, ACT_LOG_ADE> -; Log event & shutdown adjacency 
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$f: ACT_SYN_FAIL> -; The cpuie fat\ed to synchronize 
. <28, ACT-INI-FAIL> -; 1/0 lure during transport initialization 
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+1 q 5 -SBTTL Define circuit state table 
4 7 : » SAVE_PSECT 
0000 ? 8 -PSECT TABLES_PURE ,NOEXE ,NOWRT,GBL ; Separate psect for ease 
023 ; of journalling display 
099 fe) LEVSAW_STA_TAB: 
0 £36 : ey M » €¢ €°¢ 4 f) 
00 764 Se a ee Gooeet}foee}ocecea poeaowee teaetowaeaoteeateawraponmane ¢oeoe 
000 765 $LEV NO_EVT 5.32.32 .19 1.19 .19 .19 .32 .21 119 
B £66 SLEV EXTT oo e Oo oe . . a ° e 
B06 ree $LEV BUG oo? & " ine Fk. ee ? 
006 769 SLEV UNJAM ‘ wi wi Ww Wi Wi wl wl wi W6 
BORD aA $LEV REQ_SHUT -1 Wi owl wi wi wi wi wil wi wi 
QOA0 ure SLEV OPR_OFF ‘ $27 $27 $27 $1 $1 $1 $1 S$! W6 
00c0 77 $LEV oe wW1 15 215 ole . . . . * 23 
sti ore SLEV OPR_SRV wi. " . Wi wi wt wl wi W6 
$109 776 SLEV RCV_STR é B12 830 B30 839 B30—=s«i« BB 
0120 777 $LEV RCV_VRF . «te Oe «is 8 
B128 ore SLEV RCV_VVF . " ‘ , ? ¢€19 2? J21 wi ? 
160 779 S$LEV RCV_RT . ‘ . . ‘ ae ‘ 29 $0 
0180 789 SLEV RCV_ART o . . . oO co eo ° . 6 . 5 
O1A0 §=781 S$SLEV RCV_RHEL s . -40 
bico ree $SLEV RCV_EHEL : 41 
tt3} ree $LEV XMT_IDLE ? OD J21 .32 R10 32 
$500 7 § $LEV LIN_UP . - Ai8 P ? ? ? ? R10 ‘ 
0220 7 SLEV LIN_DOWN . . W27 W27 Wi wi wl wl wi W16 
b5¢6 res $LEV ADJ_DOWN ‘ - j%W2? W227 wi wi wi wl wi 39 
0 $0 oot $LEV BC_UP a ay ? > 3 ? 
0280 4% $LEV IO_TIMOUT .31 .27 § ‘ ug? uss uss W28 W228 =wW6 
AO 793 $LEV IO_FAIL . W227 W27 W27 W28 W28 W28 W28 wWé 
c8 Pee $SLEV I10_suCcC - v2 A 29 " en. . 
E0 £36 $LEV X25_CALL ¥34 ? ? 7.2 "2-2. 4 ? 
9 5 797 SLEV PVCISTART . . . see 9 ' 2 49 os ? 
£ P38 SLEV X25_RESET Y42 42 .42 .42 .42 .42 .42 
4 00 SLEV STRT_TIM a « ‘ 
+4 4° me t's) eee is y “ 44 
. § SLEV FAILED ? $43 $43 ? ice oe. se- oe ? 
A 5 $LEV ENT_DLE ? 2? #+%M-26 ? a oH Oa ae ? 
‘ g SEV DLE-ACC wi wi uf 26 Wi Wi wi wl wi W16 
V RP_RESET Y W27 w27 W27 W28 W28 W28 Ww W6 
49 5 SEY IRP~DOUN M 3 u9? U3 us? us6 us8 use us6 W6 
rf 19 SLEV IRP_MM s9 Ss9 § we? s9 $9 $9 $9 § w22 


Page 


N 3 
vo4-060"™ Define cireurt stare tanto, 7 = 'S7$EB=A9BE 82:99! CLTRN.MAR: 1 
5 
4 


i 
a We Hae Ee 


Orn De 
oe 

wn -< 

onrw vo 


ry 13 $LEV LOG_ADE ° 
00000025 cn B16 LEVSC_EVENTS = LEVSC_MAX_EVT+1 
0000 eH 18 »RESTORE_PSECT 
Bt 
00B4 1 : NOTE: Action routines vated are dispatched t fe upon the LEV$C_NO_EVT event 
0B4 § ; must not exit with the LEV$C_ 9 gv if no events are to Be chained 
0B4 3 to then these routines must @xift with LEVSC_EXIT. Failure to adhere 
Booe : 3 to this rule will result in an Faith t Loop in the state table. 
00B4 : 6 : If an action routine is never dispatched to ypon the LEV$C_NO_EVT 
00B4 3 event then it must never exit with LEVSC_EXIT; if no events are to 
00B4 H a3 be chained to then these routines must exit with EVS$C_NO_EVT. 
00B4 9; Failure to adhere to this rule could result in failure” te “deallocate 
Sood He 3 an LPD which is no longer needed. 
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Define message mapping table 


ASSUME 
ASSUME 
ASSUME 


OPR_EVT_MAP: 


NET$G_ALL_ROU: 
. CONG 
“WORD 


CRC16: 
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: -SBTTL Define message mapping table 
: Define message mapping table 
“MACRO MSGTAB parser,min_siz,msg_typ 
ADDRESS parser 
«WORD min siz 
. msg_typ 
. ENDM MSGTAB 
Asc. MAP_TABLE: 
MSGTAB RCV_STR2, TR2C_STR_LNG, <<TR2C_INI_STR@8>! TR2C_MSG_INI> 
MSGTAB RCV-VRF2, TROC-VRF-LNG, <<TR2C~INI~VRF@8>! TROC_MSG_INI> 
MSGTAB RCV_STRS, TRSC_STR_RSXL, TR3C_MSG_STR 
MSGTAB RCV_VRFS, TRSC_VRF_LNG, TRC. MSG_VRF 
MSGTAB RCV_RT TR3C_RT_CNG TR3C_MSG_RT 
MSGTAB RCVIART, TR4CTART_LNG TR4C-MSG_ART 
MSGTAB RCV“RHEL, TR4C"RHEC_LNG, TR4C-MSG_RHEL 
MSGTAB RCV_EHEL, TR4C_EHEL “LNG, TR4C_MSG_EHEL 
MSGTAB 0, 0, 0 


Setup mapping from CRI states to operator events 


NMASC_STATE_ON EQ 0 
NMASC_STATE_OFF EQ 1 
NMASC_STATE_SER EQ 2 


-BYTE LEVSC_OPR_ON 
-BYTE LEVSC"OPR_OFF 
-BYTE LEVSC_ OPR-SRV 
-BYTE 


: Define “destination NI addresses’ for broadcast Q10s issued here 


TRSC_NI_ALLROU1 “ail routers” 


3; Multicast = 
TRSC_NI_ALLROU2 


: Define a CRC polyonomial table to compute CRC-16 checksums 
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A001 0126 9 LONG “Xx A0Q1 

f 1¢A 9 «LONG “Xx $f 

1 9 «LONG “Xx 

4 1 9 «LONG “Xx 4 
0 ’ 1 94 «LONG “Xx 000 
9 13A 95 «LONG “Xx f 1 
8801 01 3 9 LONG “Xx 8801 
0004400 014 89 LONG “*x00004400 
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Storage tions “SEP=1 NETACP.SRCINETDLLTRN.MAR; 1 
1} 99 -SBTTL Storage definitions 
0000 6 ; -PSECT NET IMPURE ,WRT,NOEXE,LONG 
| 0 ; Define miscellaneous storage 
00000 NETSGL_INITVER::.LONG ; For saving received Init Message version 
00000000 99006 p 906 LEv.o_CRI: "QUAD i For saving CRI CMF and CNR’ 
907 LEV_L_LPD: - LONG ; For saving LPD address 
4 LEV_L_ADJ: «LONG : For saving ADJ address 
1 LEV_W_PNA: - LONG ; For saving partner's address 
1 10 LEV_W_BLKSIZE: .LONG ; Partner's receive block size 
1 11 LEV_B_PRIORITY: .LONG ; Partner's router priority 
4 12 LEV_W_HELLO: - LONG ; Partner's hello timer 
00000000 0 0 15 LEV_Q_PSWDESC: .QUAD 3; For saving Coser iptor of rcvd password 
0 0 914 MAX_HOPS: - LONG ; Max total hops allowed 
00 0 915 MAX COST: - LONG ; Max total path cost allowed 
0000000: 0 916 XMTFLG: LONG 3; For LPDSB_XMTFLG image 
00000000 00 917 PTYPE: ~ LONG ; Type of partner node (routing, endnode, etc.) 
00000000 Boz 91 LL: «LONG 0 3 For Gam node name 
44 04 919 RTGFLG: «WORD 0 ; Routing flags 
00000000 004 920 RTG_V_RUS = 0 ; Update supression timer is ticking 
00000001 Boe 4 RTG_V_UPD = 1 ; Request was made to run ‘‘update"’ 
00000 4 -PSECT NET_PURE,NOWRT ,NOEXE,LONG 
925 ; 
2 ; Maximum value allowed for computed Square Root Limit (SRL). 


0000007F MAX_SRL: «LONG 127 ; Maximum signed byte value 


: Table to convert partner type codes into a ‘‘phase’’ designation 
; (i.e. Phase II1, Phase III, etc.) to be used in transport re-synchronization. 


.MACRO PHDEF PTY, PHASE 
> SAVE_PSECT 
= PTY_TO_PHASE + PTY 
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-BYTE P 
»RESTORE_PSECT 
"4 -ENDM 
42 PTY_TO_PHASE: 

00000154 4 -BLKB 10 ; Allocate table of 10 cells 
4 z and fill them in with: 
4 PHDEF ADJSC_PTY_PH “3 
4 PHDEF ADJS$C“PTY"PHS, 

4 PHDEF ADJS$C“PTY"PH3N,3 
4 PHDEF ADJS$C“PTY~PH4,4 
4 PHDEF ADJS$C_PTY_PH4N,4 
: PHDEF ADJSC_PTY_AREA,4 


: Table to convert pertoer type codes into a version number to be used in 
3 message version c 


ecking. 
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1 
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154 3 
182 389 
154 8 «MACRO VERDEF PTY,VERS 
154 of - = PTY_TO_VERSION + <2*PTY> 
154 4 ~WO 8 
154 86 »RESTORE_PSECT 
eEN 
it See 
154 368 PTY_TO_VERSION: 
00000168 0154 308 -BLKW 10 ; Allocate table of 10 cells 
19 30 : and fill them in with: 
1 8 VERDEF ADJSC_PTY_PH2,0 
16 89 VERDEF ADJSC_PTY_PH TRE TIVER 
19 970 VERDEF ADJ$C_PTY_PH3N,TR3C_TIVER 
1 971 VERDEF ADJSC"PTY"PH4,fR4C_TIVER 
16 378 VERDEF ADJSC_PTY-PH4N, TR4C_TIVER 
V JSC“PTYAREA, TR4C_TIV 
16 97 ERDEF ADJSC-PTY AREA, TR4C_TIVER 
168 978 
eon 3f8 -PSECT TABLES_IMPURE ,NOEXE ,WRT,GBL,LONG 
00000400 000 978 NUM_NODES = NETSC_MAX_NODES + 1 ; Use zero indexed structures 
00000041 0000 359 NUM-CIRCS = NETSC_MAX_LINES + 1 
NUM = NETSC"MAX"AREAS + 
00000040 + 4 ? UM_AREAS ETSC_M REAS + 1 
00 9 
Bp 9 : REACH_EVT: 
00000080 0 984 -BLKB <NUM_NODES+7>/8 ; Bit vector used to monitor 
0 985 ; node reachability changes 
0 986 
080 987 RTG_CHG: 
00008108 080 9 $ -BLKB <NUM_NODES+7>/8 ; Bit vector used to monitor 
00000080 199 . ; RTG_CHG_LEN = .-RTG_CHG ; node routing info changes 
: 4 ALIGN WORD 
1 993 NETSAW_MIN C_H:: 
00000900 a8 Bae -BCKQ NUM_NODES ; Minimum Cost/Hops vector 
90 44) NETSAW_AREA C_H:: 
-BLKW NUM_AREA ; Area Minimum Cost/Hops vector 
00000980 4 44 BLR M_AREAS ini 
2 1 9 » ALIGN LONG 
980 1001 NETSAL_CH _VEC:: 
00001A88 09 1 ¢ -BLKL 1+#NUM_CIRCS+NUM_NODES 
1A 1 3 Vector of addresses of buffers 
1A 1004 ; which hold the Last levl 1 routing message 
1A 1005 3; received from the circuit or BRA. 
1A 1 $ 3 NUM_NODES should be enough space for 
- : ; the maximum broadcast routers. 
1A88 1009 NETSAL_AREA CH:: 
00002890 1A 101 -BLRL  1+NUM_CIRCS+NUM_NODES 
68 101 ; Vector of addresses of buffers 
B90 1012 ; which hold the Last area routing message 
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B | 1 
B 101 
8 1 
34 1 
00000000 101 
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: : fecelved from the circuit or BRA. 


ro i 


NUM_NODES should be enough space “for 


; the maximum broadcast routers. 


.PSECT NET_CODE ,NOWRT,EXE 
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Vou 000 NETSINIT ROUTING = In tialize ro ever da "r8 Pa} 984 83:95:38 ENETACP, SRC JNETDLLTRN.MAR; 1 e= ¢$) 
-SBTTL NETSINIT_ROUTING = Initialize routing database 
NETSINIT_ROUTING = Initialize routing database 


This routine is called when the ACP is starting up, to initialize 
any routing database that needs it. 


; Inputs: 
None 
Outputs: 


An te ts 8 8 st 
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RO = Status code 

3 : ALL other registers are destroyed. 

38 ETSINIT_ROUTING: : 

00 ; Initialize the minimum cost/hops vector 
0080 SF sOFF 8F Of over 2c 09 1040 MOVCS #0,(SP),#-1 o#2*NUM_AREAS ,NETSAW_AREA_C_H ; Min. area cost/hops 
0800 BF OFF a S| | 2c 000 1041 MOVCS #0,(SP),#-1,#2*NUM_NODES,NETSAW_MIN_C_H ; Min. cost/hops vector 

0 5 30 QOO1A 104 BSBW FORCE _FULL_DECISION ; Force full decision algorithm 
50 600 3 $9 ! ‘7 nOvL S*#SS$_NORMAL ,RO ; Success 
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-SBTTL NETSOLLUPDLNI = Process modified LNI parameters 
; NETSDLLUPDLNI = Process modified LNI parameters 
; FUNCTIONAL DESCRIPTION: 


This routine is called from module NETACPTRN whenever the LNI data base has 
been updated. 


INPUTS: None 
OUTPUTS: RO Status code 


R1 is destroyed. 


104 
1929 
104 
1 
1 
: 
i: 
1054 
! 5 
198 
1989 
ie 
1 96 - SAVE_PSECT 
0000 ! o “PSECT AEY LOCK_CODE ,NOWRT,EXE,GBL 
0 1065 +b ae of ep ; yodere datalink control layer 
88 1 26 UP DATE_ALL: Uda ate all routing databases 
OCFC 8F BB 0000 106 PUSHR #*M<R2,R3,R4,R5,R6,R7.RIO.RI1>; Save regs 
54  Q0000000'EF D0 00 68 MOVL  NETSGL_PTR_vCB,R4 ; Get RCB pointer 
0 1 $9 : Calculate the maximum datalink queue Length. The formula 
0 1071 ; dictated by the Transport Archictecture is the number of 
! ys : buffers divided by the square root of the number of circuits. 
50 5D A&4 9A 00 Ire MOVZBL RCBSB _MAX_SNK(R4) ,RO 3; Setup RO in case no active circuits 
51 60 A4 9A OOOF 1075 MOVZBL RCBSB_ACT_DLL(R4), *R1 3; Get total number of active circuits 
13 og 1 6 BEQL 208 3 Done if EQL 
52 9962 52 * BI2 ! AA 4 da Rob sy MAX_PKT(R4) ,R2 3 get the sotal number of buffers 
3; Square 
35 1 C6 001D 1079 DIVL nin : 5ui se ° by the number of circuits 
2 1 4 0 4 1 69 MOVL #1,R 3 Petabtis tentative value 
1 a. *® 0 1081 MOVL #1,R1 : kent of this value 
52 1 bd 00 g 1086 10$: CMPL R1,R2 ; Compare square of value to 
0 108 3 (but ts** Y/circuits 
OA if 029 1084 BGEQU§ 20$ 3; If GEQU then we're done 
51 28 : B ! 5 s00t agent 3 Begin (net) eee calculation 
3; onen 
51 6 p8 1 ° ADDL RO,R1 3 (ne1) #22 = nee2 + 2en + 1 
F111 sa BRB 10$ 
! + ; 3 Validate maximum allowed value for SRL (Square Root Limit) 
00000146'EF 50 pt > 3 tne RO, MAX_SRL ; Is value top Large? 
50 00000146'EF D8 ? ! 3¢ 2s: MOV L MAX_SRL,RO : Else, set to maximum allowed 
? ! 39 ; : Update the maximum output queue Lengths 
1 SD AG 9A 0045 1 38 HOVZBL RCBSB_MAX_SNK(R4),R1 ss; Get old max queue Length 
DAs § 650 29 49 1 ROAR BSB_MAX_SNK(R4) =; -_Update it 
50 1 § 3 1100 SUBL R R ; Get difference (could be negative) 
55° SCAG OA 3 1101 MOVZBL RCBSB_MAX_LPD(R4) RS : Get number of cells 
21. 13 4 1102 BEQL 5 ; If EQL then none 
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+H NETSDLLUPDLN 1 - Process tral Layer LNI par g-SEF P-1 198 83:93:32 INETACE. SRCIJNETDLLTRN.MAR; 1 . (38) V 
6 1103 DSBINT evel $C_IPL $ ack with NETORIVER 
56 28 8445 0D é 1104 30$: MOVL ar BSL- PTR_LPD(R4)CRS), Rb ; ’ LPD address 
1 6 1105 BGEG 40 } branch 17 none in this slot 
10 A D 11 $ TSTL LPDSL_UCB(R6) 3; Any datalink assoc ated ‘vith this LPD? 
it $6 1} pret ry 3; Branch if not (local LPD) 
04 22 A 6A 11 § aati Oye tre) 40$ ; Adjust only if in run state 
1E AB OS 80 9p 1319 ADDB LPDSB_XMT _SRL(R6) 3; Adjust square root Limiter (could go 
1 #111 3; negative until some 1/0 completes! 
—€8 55 =F5 71 1136 40$: SOBGTR R5,30$ 3; Loop for each cell 
eS V7 50s ENBINT 3; Restore IPL 
OF 1115 ; : On all rout tng eireutts. force a routing message to 
at 1118 3; be sent next time around. 
55 SCAG 9A OF 1118 MOVZBL RCBS$B_MAX_LPD(R4) ,R5 Get number of circuits 
56 28 B445 00 78 1119 60$: MOVL  a@RCBSC_PTR_LPD(R4SCRS), rb ; Get LPD addre 
16 = 1 80 11 9 BGEQ rit 3 ranch if slat nat valid 
11.22 A6 04 CE} : 11 BBC #LPDSV_RUN,LPDS$W_STS(R6),65$ ; Branch if circuit inactive 
57 2C B445 0 11 é MOVL § @RCBSL“PTR.A ADJCRE) ERS] R? ; Get ADJ address 
08 67 O2 €1 OO8C 11 C #ADJSV_RTG,ADJ$B STStRP) 658: ; Branch if nenereutine partner 
090 1126 ASSUME LPDS$C Sm 61 SIZE 60 32 
56 A6 O01 CE 90 1125 NEGL #1 LPO G_SRM(R6) 3 perce 7 rtginte for all nodes to be sent 
094 11 6 ASSUME LPOSC_ASRM SIZE £01 ; && f 
5E A6 91 3 094 11 MNEGL #1,LPB$G_ASRM(R6) : ieeea area rtginfo to all level 2 nodes 
0 55 94 1 3 65$: SOBGTR R5,60$ ; Loop through all circuits 
0098 1130 : Rerun the decision algorithm in 1 second, and send routing 
boos 1} 1 3 messages to our routing neighbors. 
51 0202 8F 3¢ i 1 § MOVZWL watie adh ” est Set timer ID 
52  00000021'EF 9€ BAD 1135 MOVAB UFDA Be ; Setup action. routine address 
53 00000000 00989680 8F 7D OQOA7 11 $ mova #10*100001 sab, g. 3; Timer = 1s 
FF4B" 30 nt; 11 BSBW WQESRESET_ : fet the io ticking 
50 4 DO 0085 1138 90$: MOVL #1,R0 cate success 
OcFC 8F BA 00BB 1139 100$: POPR #*M<R2, 3, R4,RS,R6,R7.R10, Angye Restore regs 
05 bes 29 RSB 
0000 p } 1136 -RESTORE_PSECT 
1 #1144; 
1 1145 ; This timer routine is called to run the decision algorithm. It 
1 1166 : 3; is done on a timed basis, to avoid sending routing messages in 
! 1148 : the above routine. 
1 1149 ° 
1 $11 p UPDATE_TIMER: 
0064 3 1 Sy BSBW KILL_WQE ; Deallocate timer WQE 
64 1 4 11 § BSBB FORCE _FULL_DECISION ; Force full ee titan algorithm 
1404 3 § 1 i BsBu REQUEST_UPBATE 3 Request decision 
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ve -SBTTL FORCE_FULL_DECISION = Force full decision algorithm 
; FORCE_FULL_DECISION = Force decision algorithm to be run on all nodes 


: This routine is called whenever any routing related parameters have 
; changes which might affect cost/hop calculations. 


; Inputs: 


vo4-060"" FORCE. 


“ow 
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2a 


; None 

; Outputs: 

; None 

: No registers are destroyed. 
¢ 


ORCE_FULL 
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DECISION: 
3F 60S sé PUSHR #*M<RO,R1,R2,R3,R4,R5> 3; Save registers 
FF BF 6€ 00 e2 MOVCS #-1,- 3; Store 1°s in bitvector 
00000080'EF 0080 8F #RTG_CHG_LEN,RTG_CHG 
3F BA poor #°M<RO,RT,R2,R3,R4,R5> ; Restore registers 
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SBTTL NETSOLL_ALL_OFF = Turn off all circuits 
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i Dat 
ALL_OFF 
. 3 
C 1181 ;¢ 
: 1 : NETSDLL_ALL_OFF = Turn off all circuits 
C1184 ; FUNCTIONAL DESCRIPTION: 
: 1 § ; Each CRI entry is forced to the OFF state and an operator event is generated. 
¢ 1 3 : INPUTS: None 
: He ; OUTPUTS: ALL registers are destroyed 
€ 1192 :- 
O3C 1195 NETSDLL_ALL_OFF:: ; Turn off all circuits 
54 09900000 "EF DO 00 1194 MOVE NETSGL_PTR_VCB,R4 3; Get the RCB address 
5 SC AS OA 04 1195 MOVZBL RCBS$B_MAX_CPD(R4).RS  : Get number of cells 
ge 1 4 1138 BEQL 50$ : If EQL then none 
58 5 4 be? 1197 30$ MOVL R5,R8 3; Get LPD i.d. 
aro 4C 1198 BSBW NETSGET_LPD_CRI : Get LPD and CRI blocks 
1850 ~=C«€E O4F 119 BLBC RO, 3; If LBC then not active 
58 01 00 b2 1 89 MOVL #NMASC_STATE_OFF ,R8 3; Setup new state value 
0 1201 SPUTFLD cri,l,sta ; Stuff it into the CRI CNF 
50 OOFC'C8 9A 0062 1 sf MOVZBL OPR_EVT_MAP(R8) ,RO 3; Get corresponding event 
OCF1 30 0067 120 BSBW T_OLL_EVT ; Queue the event - always succeeds 
DC 55 «FS O06A 1204 408 SOBGTR R5,50$ 3; Loop for each cell 
50 00° DO 006D 1205 50S MOVL  $4#SS$_NORMAL,RO : Indicate success 
05 0070 1206 RSB 
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4 } p * -SBTTL NETSDLL_OPR_SET = Process operator generated event 
4 } ! ; NETSDLL_OPR_SET = Setup operator generated event 
4 1 ; FUNCTIONAL DESCRIPTION: 
71 1214 ; The CRI has been updated and is about to be inserted in the database. Since 
4 ! 1? : the circuit ‘'state’ may have changed, schedule an event. 
071 1 9 ; INPUTS: R11 CRI root block pointer 
ort ! 19 ; aa? CRI + pointer 
3 cratc 
71 «1 3 R8 Value of <cri,l,sta> (operater state) 
Bao) ! 1 : R7-RO Scratch 
Bae) 1 ‘ + OUTPUTS: R11,R10 are preserved 
071 1224; RO Low bit set if successful 
8 ! 5 ; VMS status code otherwise (R9 = Field ID in error) 
0071 1 : ALL other registers are destroyed. 
007] 1999 i 
071 1230 NETSDLL_OPR_SET:: ; Setup operat ted t 
58 DD ea 1231 “PUSAL R8 3 Sou eters ee ee 
OOOOOOOC'EF 04 0073 1 § CLRL LEV_L_LPD 3; No LPD allocated yet 
OOO000R0 "Er 16 0079 1 JSB NETSGET_VEC ; Prepare the Line 
fr 0 €9 OO7F 1234 BLBC $ 3; If LBC then error 
54 QO000000°EF DO 0082 1235 MOVL NETS$GL_PTR_VCB,R4 : Get RCB address 
05 008A f * te ! $$ Hay RCBSB_ETY(R4) ,WADJSC_PTY_PHAN gif endnode, 
3 branc 
wooecere tr 16 096 1 3 JSB NETSGET_RTG 3; Get routing info 
18 50 4 843 1239 BLBC 3; Branch if error 
2c00 30 0099 1240 1$: BSBW NETSLOCATE_LPD ; Locate associated LPD 
09C 1241 3; R6 = 0 on return if none 
eae 16 44 1 4s JSB NETSGET_VEC3 3; Check the Line state 
0C 50 €9 OQOA2 124 BLBC RO,2$ 3; If LBC then error 
01 6E— 91 OOA 1244 CMPB (SP) ,#NMASC_STATE_OFF 3 Is the STATE OFF ? 
D 12 OOA8B 1245 BNEQ 5$ ; If NEQ then no 
6 D5 OQOAA 1246 TSTL R6 : Is there an LPD 
06 12 OQOAC 1247 BNEQ 3$ 3: If NEQ yes, generate state table event 
O9E 1 QOAE 1248 BRW 90$ 3; Else just return 
O9E 1 00B1 1249 2$: BRW 100$ : Exit 
008A 1 bes ! 50 at BRW 80$ 3; Generate state table event 
037 } 3 : : If STATE is ON, then ensure that all required parameters are set 
00 6€ 91 OB? 1 33 CMPB 4s (SP) ,ANMASC_STATE_ON _; Is new STATE ON ? 
09 1 OBA 1255 BNEQ 3; If no, then skip checks 
gif 3 bet 1 28 BSBW CHECK _REQ_PARAMS : Ensure required parameters are set 
03 50 3 oe BLBS ; Branch if ok 
008>D «31 C 38 109$: BRW 106$ : Exit with error 
; ! 9 ; Allocate an LPD, if one does not already exist for this circuit. 
56 6pS 6(00c5 «1 e 10$: STL RG ; Is there an LPD ? 
gp 15 C7? 126 BNEQ 208 : If NEQ then yes 
009c) = 3 C9 1264 BSBW ALLOC_LPD ; Else allocate one 


NETDOLLTRN = Routing & Datalink control la A. SEP=1984 01:21: AX/VMS Macro V04-00 Page 3 
Vv “600 NETSDLL. OPR_SET - Process operator gener - SEp= 1984 3:95:32 ENETACP. SRCJNETDLLTRN.MAR; 1 ’ 43) 
F3 20 —9 CC 1265 BLBC SAM $ ; If LBC then failed 
0000000C 'EF 6 00 44 1 ef 208: MOVL LEV_L_LPD ; Save new LPD pointer 
D6 1 8 ; : Validate circuit perageters oe the datalink driver in 
0D6 1 § ; order to return any simple errors immediately to the user. 
+ 1270 ; All errors after this point will simply leave the circuit 
4 ! 4 3 in an ‘‘on-synchronizing’’ state. 
0D6 1 og : This is not done for x.25 datalinks, since they don't have 
44 : oe ; any concept of parameter validation without starting the circuit. 
1322.06 07 €0 906 1 i: bas #LPDSV. x25 PD$W_STS(R6), 508 Skip if X.25 datalink 
DB 127 SCNFFLD cri,s : Ident Y character stics buffer 
52 14 a6 3 O03 1 £8 MOVZWL Leogi. CHAN(RO) -R2 ; ae I/ 
51 Be QOE6 127 CLRL 3; Clear illegal. 1/0 modifier mask 
FFIS' 0 QOOE8 1280 BSBW NE TSSET Q10W 3; Get buffer and issue $Q10W 
64 50 €9 Boe } 81 50s BLBC : If LBC then failed 
BoEE 1 es ; Store cost associated with this circuit 
QOEE 1285 $GETFLD cri,l,cos ; Get circuit cost 
ita 1286 3 (must be specified at this point) 
29 A6 «5890 oe } 4 MOVB R8,LPD$B_COST(R6) 3 i favet circuit's cost 
ta Hi Store our NI router priority for this circuit 
th 1291 $GETFLD cri,l.rpr ; Get NI router pe tor ity 
10C 1636 3; (if not set, default it to zero) 
2A A6 «658 — O90 b196 1$37 MOVB R8,LPD$B_BCPRI (R6) : Store router priority 
8118 ! 32 ; Save hello timer in LPD 
o110 1 39 sce rrp cri L,het ; Get the hello timer 
06 50 E€8 0110 1298 0,60 é : If LBS then it parameter was found 
58 OD be 01 9 1299 Hat ; Else set the Cotoust 
FEDA' 30 0123 1300 BSBu a : Store it in the CRI 
18 A6 0 «6558~—s«iB : 6 ! 4 60$: Mov R8, tPDsa. tii _TLK(R6) ; Setup the ire. interval 
! " ! a8 ; Store X.25 BLOCKING flag into LPD 
12A 1305 bcerr Lp cri,l, blk ; Get BLOCKING parameter 
07 50 €9 0137 1306 LBC ,80$ a A. specified, leave flag-off 
13A 1307 ;8& Stee nch if parameter off 
135A 1 3 388 SETBIT LPOSV x2 Ke oBL K LORSu srscnd® A eet flag value into LPD 
50 0000'8F 3C OI13A 1 MOVZWL #5536 RO 388 We don't currently support this 
11 11 Fe ! 19 BRB : Exit with error 
141 1 \ : Force full decision algorithm to be run on all nodes, in case 
13) ' \7 : the cost has changed for this circuit. 
FEE6 30 1?) \ 1? 80$: bsBu FORCE _FULL_DECISION : Force full decision algorithm 
19 1 2 : Generate an event to drive the circuit's state table 
58 6f 9A 0144 1 i hovzBL (SP) : Get new STATE value 
50 O0FC'C A 0147 1 30 OVZBL OPR ett _MAP(R8) ,RO : Get corresponding event 
0coc 0 014C 1321 BSB SET“DLL-EVT + Queue the event - always succeeds 
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Indicate success 

Cleanup stack 

Exit if success 

Was LPD ets allocated ? 


; If EQL 
: iasuket stetue 
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Deallocate the LPD 
Restore status 
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: -SBTTL ALLOC_LPD = Allocate LPD 

; ALLOC_LPD - Allocate and initialize an LPD cell 

; FUNCTIONAL DESCRIPTION: 

; A free LPD cell is allocated and initialized. A channel is assigned to it. 


: INPUTS: 


: Initialize the LPD cell 


ADDW3 = #*X<0100>,R3,LPDSW_PTH(R6) ; Set the new path ID 
MOVE #1, LPDSB_XHT_IPL(R6) § fam eeu sek tation 

; oe npu acke miter 
MOVB RCOSB MAR SNR(R .- eagetbece he 


20 A6 «653 «60100 BFE AI 
1F AG 601 CPP 
5D A4 


Dat 
ALL 
168 1333 
168 1334 
168 1335 
168 1 § 
168 1 
168 1 3 
168 #1 
ish tas 
168 134 R11 CRI CNR address 
168 1 rk R10 CRI CNF address 
19 ! rf: ; R9-RO Scratch 
168 1346 ; OUTPUTS: R11,R10 Unchanged 
168 1 23 . R8& Assigned ath i.d. 
168 1 ‘8 R6 Path’s LPD address 
168 1349 ; RO Low bit set if path was found (or assigned) 
19 : 29 ; Low bit clear otherwise (R9 = field ID in error) 
168 1352 ALLOC_LPD: ; Allocate/init PD cell 
54 00000000°EF po 0168 26 MOVL —NETSGL_PTR_VCB,R4 Bil * le 
6 D4 6194 : 2¢ CLRL R6 ; Mark no LPD allocated yet 
iz 36 : Find a free LPD cell 
55 SCAG 9A 0171 1 38 MOVZBL RCBSB_MAX_LPD(R4).R5 ; Get max path index 
58 01 dO 0175 135 MOVL #1,R ; Start at beginning of vector 
53 28 B448 b6 178 1360 110$: MOVL  @RCBSL_PTR_LPD(R4)CR8],R3 ; Get LPD address for this index 
OD 1 g170 1361 BGEQ 130$ ; Branch if index not in use 
58 06 17F 614 $6 INCL 3; Advance to next slot 
50 0000'sF Se O18 1364 ROVIuL #888, INSFMEM, RO i Indicate fail 
$2223 0189 1365 1198: | BRU S008" 3 Yoke commen entt 
O18 : $ : Allocate an LPD block from non-paged pool 
51 0000006A 8F 1 1369 130$: MOVL  #LPDSC_LENGTH,R1 ; Set Length of LPD block 
Fegan’ 89 B198 1390 BSBH NETSALONPGD_7 I Mtesett LS bleh 
roe i aie it RE as : RodmeMaatumnbes orate 
x : Point to ne ° 
28 8448 56 600 Ar ' 73 MOVL R6,@RCBSL_PTR_LPD(R4) CRB) ; Mark the slot in na 
1A1 (1375 : Allocate a buffer from ACP process space to hold the last 
1A} ! 16 ; routing message received over this circuit. 
1A1 1 4 $D1SPATCH acape ETY(R4) , TYPE=B,<- ; if we are an endnode, 
1A1 137 <ADJ PTY HON 133 >,- ; Skip the following 
1A1 1380 <ADJSC_ PTY" PH3N,135$>> 
20D 30 181 1381 BSBW ALLOG CosTAoPS 3; Allocate cost/hops buffer 
D2 50 ~€ 18 : ¢ BLBC RO,119$ ; Branch if error detected 
187 1384 
187 1385 
187 1 § 
1BE 
1€5 1389 
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yOeb00 ALLOC.LPB = Allocate LPD , greee robe Boi fa:3e HARINES acta vot OO aap. P29 ad 
1E A6 1¢5 (1 39 LPDS$B_XMT_SRL(R6) ; Setup square root Limiter 
1¢ 139 ASSUME LPD$Q_ REQ _ WAIT EQ 0 : 
66 36 D 1c7 «1 36 MOVL R6, (RB) ; Init the queue header 
: a8 6 OD 1CA 139 MOVL R6,4(R6) 3 
00000000'GF DO OICE 139% MOVL  G*EXESGL_ABSTIM,- : | 
6 Ab 1046 1395 LPDSL ABS TIM(R6) : Time counters were zeroed | 
004C BF a3 0106 1 36 SUBW3 #CXBSC_OVERHEAD,- 3; Default datalink buffer size 
7E AG 1DA 139 RCBSW_TOTBUFSIZ(R4),- ; in case PLVEC doesn't exist | 
50 A6 136 : a8 LPDSW_BUFSIZ(R6) | 
1DE 1400 ; Determine if this is an X.25 datalink mapping circuit, 
108 1? 1 ; and if so, mark it as such. | 
1DE 1408 $GETFLD cri, typ ; Get TYPE parameter 
0A 50 «6©€9) «=COT1EB «1404 BLBC ° ; Branch if not specified 
03 4 Di OEE 1405 CMPL RB ,ANMASC_CIRTY_X25 3 M.25 circuit? 
0 12 OFT Jens BNEQ 3; Branch if not 
Ife 1eR% 1408 SETBIT LPDSV_X25,LPD$W_STS(R6) ; Mark the circuit as X.25 datalink 
O1F8 1409 ; Locate the Line entry. by searching the Line database 
O1F8 1410 ; looking for a Line with the same VAS initial device name. 
O1F8 1411 $ In order to handle drivers which clone UCBs on each assign 
OF 1016 : (and so, we can't assign another channel for the circuit 
O1F8 141 3; =without getting another UCB), we get the actual device name 
O1FB8 1414 ; used by the Line (with the cloned unit number filled in) 
ai 1212 ; and assigning a channel to that UCB for the circuit. 
O1F 1419 : In addition, as long as we are looking for the associated 
OF 1333 ; line, copy the Line's datalink buffer size to the LPD for 
1F 141 3 easier access. If it isn't found for some reason, the LPD 
ire 1? y ; buffer size has been setup earlier with a default value. 
50 0000'8F 3c O1F8 14 : MOVZWL_ #SS$$_NOSUCHDEV,RO ; Assume error if bad Line name 
1FD 14 SGETFLD cri,$,vmsnam ; Get device name descriptor 
03 50 £8 O20A 1424 BLBS RO, 1438S : Br on success 
019 1 OD 1425 BR 300$ ;_ Else, take common exit 
47 22 46 0 E0 10 14 § 142$: ®6BS #LPDSV_X25,LPDSW_STS(R6),149$ ; No Line for X25 circuits 
0COO 8F 15 14 PUSHR #*M<R1 > ; Save CNR/CNF pointers 
5B O0000000'EF oD 19 14 MOVL NETSGL_CNR_PLI,R11 : Point to Line database 
A 04 14 CLRL R10 ; Start at Bogjanrn 
1430 SSEARCH egl 4) -8.vmenen : Search for line with the same device 
2150 €9 1431 LBC RO 12 4 ; Error if no corresponding Line 
4 14 SGETFLD pli, l,bus : Get datalink buffer size 
04 E9 41 14 BLBC ‘ : Skip if not returned 
50 A6 B0 44 1434 MOVW R8 .LPDSW_BUFSIZ(R6) ; Save datalink buffer size 
48 14 5 1468: SGETFLD Lis evnan : Get actual device name for Line 
: * e 3; Restore registers 
0c99 % e9 35 1° $ 1498 BLBC RO,155$ ; Branch if ) Me detected 
: 1438 : Assign a channel to the device. 
44 MOvVa =. R7,, = (SP) ; Save name descriptor 
6 He oD ef 1eeg HOVE ° 3; SASSIGN_S modi tices the SP | 
: 1967 cece — 3; Get a channel to the device | 
62 1445 CHAN = LPD$W_CHAN(R6),- | 
62 1446 MBXNAM = NET$GO_MBX_NAME ; For PSI UCBs, get all mbx msgs 
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(For other UCBs, this does nothing) 
Cleanup the stack 
Br on error 


: Find associated LINE (PLVEC) with this device UCB and claim it 


MOVZWL LPDSW_CHAN(R6) RO 
J$B8 G* 1OCSVERIF YCHAN 


MOVL  CCBSL ycacrt) RO 

MOVL RO,LPBSL yee (Re) 

BBS #LPDSV_X25 ,LPDSW_STS(R6) 
MOVZBL PLVEC$GB_MAX.R 

CPL PLVECSAL-UCBLR8),RO 


0$ 


MOVZUL “ESS NOSUCHDEV,R 
BRW 
INCB = PLVECSAB_REFCCR8) 
MOVE RB, LPDS$B~PLVEC (RO) 


SOBGTR R8,15 
SDASSGN_S “— = LPDSW pone 
3008" 
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Get channel for call 

Get the CCB, ignore errors -- 
CCB is returned anyway 

Get the UCB pointer 


setup ms UCB pointer 
$ ; X.25 datalink has no PLVEC 
Get max +i index 


; Is this it 


If EQL then yes 


; Else foop (index 0 is not used) 


n the channel 
Indicate error 

Take common exit 

Another PLVEC cell reference 


; Setup PLVEC index 
: For point-to-point pseudo UNA 


datalink, always use the same 


3 channel for both Line and circuit, so that shared PID/CHAN 
3 =matching works in the UNA driver. 


CMPB Ss PLVECCSAB_DEVLCR8),- 
#DEVTRNSC_DEV_PPUNA 
BNEQ 161$ 


PUSHL RO 

SDASSGN_S CHAN = LPDSW_CHAN(R6) 
POPL “RO 

MOVW  PLVECSAW_CHANCR8),- 


Point-to-point pseudo UNA datalink? 


If so, 

Save datalink UCB address 
Deassign the channel done above 
Restore UCB address for later on 
Use the Line's channel 


LPDSW_CHAN(R6) for the circuit as well 
; If the associated Line is of PROTOCOL NI, then mark the LPD 
; aS @ broadcast circuit and set a flag forcing all I/0 to be 
; word aligned. 
CmpB PLYECSAB_DEVCRB], #DEVTRNSC DEV_UNA ; UNA? 
BNEQ 165 ; Branch if not 


SETBIT #LPDSV_BC,LPDSW_STS(R6) ; 
SETBIT #LPDSV ALIGNW,LPDSW_STS(R6) 3; Always word-align UNA 1/0 


ark as broadcast circuit 


3 if the associated Line is of PROTOCOL CI, then set a flag 
3 orcing all 1/0 to be quadword aligned. 


tps PLYECSAB_DEVCRB],#DEVTRNSC DEV_CI ; 1? 
EQ 166 


anch if 


BN ; Sr not 
SETBIT M#LPDSV_ALIGNQ,LPDSW_STS(R6) ; Always quadword-align the CI 
; Determine whether the datalink driver can support buffered 


; or direct 1/0 based on it 


Mov. —-uCB L_DDT(RO) .RO 
MOVL  DDTSL7FDT(RO).R 
BBC #10$_READLBLK.- 


s FOT table. 
; Get DDT address 
; Get FD 


If BC then direct 1/0 function 


— 5 
Eocate CAD eT STREBZ1GR $:99:25 ENETACE. SeeSneYOcioRW.maR:1 29° cHay 
5 


sch" ttt 


<AD JSC. PTY_PH4,205$>,- 
<ADISC PTY"PH4N, 205$>,- 

AD s$¢ C"PTY" AREA, 205$>> 

MOV ZL asi _BADPARAM, RO 


veslhval SETBIT LPDSU RDF LP DSU 1STS(R6) : Mark for buffered recei 
3; Mark for buffered receives 
00090000" er E1 180$ BBC Le ORI TELBLK ; If BC then direct 1/0 function 
4 AO FOT_TOTYPE( 12008 3 
2008 SETBIT LPDSV_XBF, LPDsie STS(R6) ; Mark for buffered transmissions 
1 5 If this is a broadcast circuit, then do not allow the circuit 
! ; TRANSPORT TYPE to be any value other than Phase IV values. 
24 22 a6 «OOAsé#€‘*D BBC #LPDSV BC, ,LPD$W_STS(R6), +2058 iit tpert' typ circuit, 
cr x et transpor @ parameter 
14 39 § 1 BLBC = RO att : ekip 1? ne pecitied 
18 0 1 BSBW «= XPf_TO_PTY Frensiate. xpr to node type 
SDISPATCH RB,< Allow only if set to one of: 
1 


Phase IV routing 

Phase IV endnode 

Phase IV area routing 
Else, illegal protocol 
3; Exit with error 


50 0000'8F 3c 
58 Oi 


; Allocate an ADJ control block, to maintain adjacency-related 
3; parameters. The first MAX _LPD slots in the ADJ vector correspond 
3: «exactly to the LPD of the Same index, so allocation is easy. 


7 20 a6 OA MOVZBL LPD$B_PTH_INX(R6),R Get LPD index 
57 2¢ B447 v0 mov @RCBSC_PTR IANS tRGSER7D, Rn? : Get ipointer to ADJ block 
sters 
67 0D 00 6€ 00. 2¢ ROVCS 40, (SP) ,#O,#ADJSC_LENGTH, RI): Tero ADJ cell 
4 8ED0 POPL estore register 


MOVW Posy PTH(R6) . ADUSW Uppck7) Store Sosecieted LPO index in ADJ 
MOVB #ADJST_PTY_UNK,ADJSB_P Rr?) Mark pertner type unknown 
SETBIT ADJSV. TNUSE™ AD ISB. STSKRY). : Mark cell in use 


For broadcast cireyits initialize the ‘‘designated router’ 
to be the NI itself For point-to-point circuits, oe 15 MA 
the * Fg BP router’’ to be the remote partner node. 


MOVZBW LPDSB_PTH_INX(R6),- ; Preset ADJ index of DRT" to that of 
LPDS$W_DRTTR6) ; the circuit itself (‘'none’’) 


: If this ts a broadcast circuit, then allocate a buffer to hold 
: the current state of the ‘router election’. 


0 
4 
5 
" $D1SPATCH csBigeee aes -TYPE=B,<- if we are an qndnode. 
3 10$>,- ; HA p the follow 
<ADISC-P 10$>> 
0 ayes ¢ Cebsu Brine) 2108 ; Skip if non-broadcast circuit 
1 MOVL TeThce RA Ri: Set size of buffer neede 
§ BSBW ‘ aH 5)*- : Allocate buffer from nonpaged pool 
BLBC aos Branch if error detected 
4 se MOVAB WotR ) ,LPDSL_RTR “LIST(R6S ; Store ederess of Suffer 
0 


3 Link the new LPD to the CNF block 
MOVZWL LPDSW BTH(RG) «R : Get path i.d. 


MOVW = RB CNF SW eRiOe : SP Tnk ONE to LPD 
MOVL epee SNORRAL RO : Indicate success 


2 A6 A €1 
vou? begs" 38 
2E A6 oe a 5 


Bee 


* 0 


a a a at a a tk a tk at a at = ob ss ss a 2 ss 2 as 1 2 2 a a a 1 


, § 
as NI 
ALLoe Bt tuiek "BrREE=fSR Bh:9b:38 HARINCS SaesReYCt OO, mans 1 PAM" F8, vl 
OF 300$: Ss RO, 3908 ; If error on ? 
ik | ef PERS : Was an Vernet sliockeoa? 
BEQL 0$ 3; Branch 
0201 8F 1 re) PUSHR #*M<RO,R9> 3; Save final ohetes 
0091 1565 BSBwW 3 If so, cleanup LPD 
0201 8F C 1308 POPR #*M<RO,R9> 3; Restore final status 
BS 03CO0 1567 390$: RSB ; Return status in RO 
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Llocate a cost/hops bu §-8 sats vi 93:93:32 ENETACE.. SREINEYDLLTRN. MARS 1 . ALS 
-SBTTL ALLOC_COSTHOPS = Allocate a cost/hops buffer 
ALLOC_COSTHOPS = Allocate a cost/hops buffer for an adjacency 
This routine is cottes to allocate a buffer in ACP process space 
to hold the Last routing message received from the circuit or 
broadcast router. This is called when a circuit LPD is created, 
or when we hear from a new broadcast router. The address of 
the buffer is stored in the NETSAL_CH_VEC pointer vector. 
Inputs: 
R8 = ADJ index 
Outputs: 
RO = status code 


Ri-R2 is destroyed. 


Pe: Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


LLOC_COSTHOPS: 
PUSHR #*M<R3,R4,R5> ; Save vogyesers 
JSB NETSGET_RTG2 : Get routing info 
BLBC : Branch if error 
MOVL § #124<2*NUM_NODES>.R1  : Set length of block 
BSBW WETSALLOCATE 3; Allocate the buffer 
BLBC RO,90 ; Branch if unable to allocate 
auer 4 Re 3; Point to first available byte 
MOVL R2,NETSAL_CH_VECCR8) ; Store address in vector 
MOVCS #0,(SP),#=1,R1, (R2) 3 Initialize it to max cost/hops 
; lf we are an area router, then allocate one for area 
3 routing messages as well. 
MOVL NETSGL_PTR_VCB,R1 ; Get RCB address 
CMPB RCBSB_ETY(R1) ,#ADJSC_PTY_AREA ; Are we an area router? 
BNEQ 3; If not, then exit 
MOVL #12+<2*NUM_AREAS>,R1 : Set length of block 
BSBW WETSALLOCATE 3; Allocate the buffer 
BLBC RO,90$ 3; Branch if unable to allocate 
oar 4 . 3; Point to first available byte 
MOVL R2,NETSAL_AREA_CH(R8) =; Store address in vector 
MOVCS #0,(SP),#=1,R1,(R2) : Initialize it to max cost/hops 

80s MOVL ° 3; Success 
$ POPR #*A<R3,R4,R5> ; Restore registers 
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RE 


— 


~SBTTL DEAL_LPD = Deallocate LPD 


ie 
; COND -PEAL LPD = ph Yb a pa | deallocate LPD 
; DEAL-L = Unconditionally deallocate LPD 


: the 1/0 ghennet is SDEASSGN' 4,,0°0 5 the LPD block is deallocated. 


Init the PLVEC index 
DECB PLVECSAB_REFC No longer referencing it 
Are the Line and Ci reuit channels 


28 A6 
Q0000000°EF40 97 


CLRB LPOSB AB REE CERO 


NNNNOOOUMNMNNER ERR RRR RRS 
FSP NUNG FOUND SS SF OW" FS 99 OF NIVWOM DW OO Ff SM FLL LPP PPP PPP PPP PPE ESE 


14 A6 O0000000'°EF4O 861 CMP PLVECSAU, CHANCROJ,- 
W_CHAN( the same? 
oe «13 BEQL If so, let Line-related code deassign it 
198: SDASSGN_S CHAN = LP su. CHAN(R6) ; De-assign channel 
3 AA 4 15$: CLRW CNFSW_ID(R10) Unbind CPD {rom CRI 
54 20 A6 C MOVZWL Pose PTH(R6) ,R4 Get current path index & seq. no 
A MOVZBL R4,R2™ Get LPD index 
MOVL  NETSAL_CH_VECCR2].RO Get address of routing msg buffer 


Branch if none 


50 00000986"EF a3 D op ne 
$13 RO Point to real start of block 


BSBW NETSOCAL LOcAT Deallocate routing message buffer 


PREP R RRR RPP RRR PPP PRP PPP PPP RPP PPR RP RRR RPP PPP PP PPP PPE 


ue ¢ 3 : The LPD is unhooked from the CNF. 
: : INPUTS: R11 CRI CNR pointer 
3 R10 CRI CNF pointer 
: : R6 LPD pointer 
> OUPUTS: Ré ler 
13: R LBS. if successful 
§ : LBC otherwise 
¢ : R1-R4,R7-R9 are destroyed 
6 tonp _DEAL LPD: : Conditionally deallocate LPD 
a D cri,l,sta 3; Get the operater state 
07 50 +=€9 8 RO, 10$ 3; If LBC then assume ‘‘off'' 
50 D4 9 ant Fp 3; Assume can't feel hecate 
01 58 91 0 CMPB RB ,#NMASC_STATE_OFF ; Is the state 
11 4g 1 BNEQ 3; If NEQ then can’ t deallocate 
18 AB 9 8 § 10$: TSTB PDSB_ASTCNT(R6) 3; Has LPD Aap wr 
0c 4 BNEQ : If NEQ no, return err 
1C AG 95) =O 4 TSTB 0080. IRPCNT CRG) ; Does NETDRIVE R Stitt have references? 
07 «#612 «0 5 BNEQ : If NEQ, then wait for NETDRIVER 
0 8 ; to wake us up with CRD event 
03 =€£0 BBS #LPDSV_ACCESS 3; If accessed for ‘‘service’’ then 
02 22 Ab 8 LPOSW “STS (RO), 20$ : cannot deallocate 
01 1 9 BSBB pear’ _LPD 3; Deallocate LPD 
0 ? 20$: RSB 3; Done 
8 § DEAL_LPD: Deallocate LPD 
50 28 #6 9A MOVZBL LPDSB_PLVEC(R6) ,RO Get PLVEC index 
1 13 : BEQL 10$ If EQL then none 
4 
4 


me a a ad a a td a 8 et + tt 


DPR PAA PAPA A AA AA AA AA AAA AAA AA AAA AAA A AAAS AAA AAA AAO 


NNO AAA AA AAO AOMUMMUINUINIUIUE RRR RRR RRS 


D 
50 ™ ; ATE 
"EF D4 CLRL NETSAL_C Invalidate pointer 
50 §000%A88 EF D 20$: MOVL NETSAL “AREA A EReR2D, RO Get add dares of area routing buffer 
Ba 49C BEQL 2 $ Branch i 
C ¢ 49 SUBL #12,R0 Point to reel start of block 
c" 4A BSBU =: NETSDEALLOCATE Deallocate rout ng message buffer 
01A88' 4 Q4A4 CLRL NETSAL_AREA CHCREI Invalidate pointe 
51 O000000'EF DO O4AB 258: VL NETSGL-PTR_VCB,R Get RCB address 


1 5 
vo4=560"™ DEAL-LPD'= Deattocate LPb  @7*" = S78EBZ19RE 84:43:38 ENEIKCE.SRESNEVDULTRN.man:1 “28° (#2) 


50 2C B14 dO 186 1675 MOVL ences? R_ADJ(R1)CR2],RO0 ; Get address of ADJ block 
1 BB 487 1 : PUSHR #*M<RT-R2,R4> ; Save registers 
60 OD 00 6€ 9 C 0489 1 movcS #0, (SP5,#6 MADJSC_LENGTH, (RO) ; Zero ADJ = including INUSE bit 
BA 048F 16/8 POPR #*Ac »R4> ; Restore registers 
50 2E A6 4C1 167 MOVL LPDSL_ATR_LIST(RG) .RO ; Get address of RTR_LIST buffer 
6 43 16 ? BEQL 0 : Branch if none 
50 § § 4C7 1 SUBL #12,R0 3 Point to real start of block 
FB33° 4CA 1 § BSBW NE TSDEALLOCATE 3; Deallocate the buffer 
50 6 g 4CD 1 30$ MOVL R 3 Point to LPD structure 
FB2D' 400 1684 BSBW NETSDEALLOCATE ; Deallocate LPD block 
6 D4 O4D3 1685 CLRL R : Invalidate LPD pointer 
28.8142 54 DO 0405 1 é MOVL  R4,@RCBSL_PTR_LPD(R1)CR2) ; Invalidate LPD vector slot 
4DA 1 3 and store current index $99. no 
4DA 1688 : instead of a pointer (bit 31 clear) 
50 00° 0 Rope 1689 MOVL S“#SS$_NORMAL ,RO ; Setup status 
0 40D 1690 RSB 
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talink control Layer 16-SEP-1984 01:21: AX/VMS Macro V04-00 Pa 4 
- Check that required p g-SE=18 4 94:94:32 NETACP.SRCIJNETDLLTRN.MAR; 1 ” Ria 


~SBTTL CHECK_REQ_PARAMS = Check that required parameters are set 
CHECK_REQ_PARAMS = Check that required circuit parameters are specified 
This routine is called when a circuit is turned on, in order to ensure 
ba pe yee proper parameters were spect fied. depending on the type of 
u © 


s is done here, so that immediate feedback can be given 
to the requestor. 


oo 
i" 


or 
=x 


Inputs: 


RO = status code 


CV e Se Se Ge Ge Ge Se Ge Ge Se Se Se Se Ge Sete te 


HECK_REQ_PARAMS: 
; COST must be specified for all routing circuits. 
$GETFLD cri,l,cos 3; Get the COST value 
03 50 &8 BLBS —s- RO, 108 : Branch if okay 
0080 31 BRW 80$ ; Else, error 


If we are an endnode, do not allow TRANSPORT TYPE 
parameter to be set to a router. 


10$: MOVL NETSGL_PTR_VCB,R4 ; Get RCB address 
SDISPATCH RCBS$B_ETY(R4) ,TYPE=8,<- ; If we are an endnode, 
<ADJ$C_PT N,15$>,- 


_PTY_PH4N, 
<ADJSC_PTY_PH3N,15$>> 


54  Q0000000°EF D0 


28 O11 


BRB 
15$: SGETFLD cri,L,xpt 3; Get TRANSPORT TYPE 
18 50 9 BLBC 3; If specified 
165F 0 BSBW XPT TO_PTY : Translate XPf to node type 
SDISPATCH RB,<= 3; These are the allowable values 
CADISC_PTY PHAN, 20$> .~ 
<ADJSC_PTY_PH3N,20$>> 
50 0000°8F 3C MOVZWL #SS$_BADPARAM,RO ; Illegal parameter 
44 11 208 BRB 90$ 


: If X.25 circuit, then check additional parameters 


$GETFLD cri,l,typ ; Get circuit type 
BLBC ° ; Branch if not set 
CMPL RB #NMASC_CIRTY_X25 ; X.25 circuit? 
BNEQ 50$ : Branch if not 


; For X,25 circuits, USAGE must be specified, and for outgoing 
> DLM circuits, NUMBER must be specified. 


$GETFLD cri,l,use ; Get USAGE 

BLB RO, ; Error if not specified 
CMPL R8 ,#NMASC_CIRUS_OUT 3 Gut going? 

BNEG 508 : Branch if not 


os 38 Oot 
38 12 


SOOOOOOOOSOOSOOOOOSOOOOO OOOO SOSOOSOOOCOOCO OOOO OOOOOOOOOOOOOOOOOOO 
SH er ew wT tat tt et et et et et et et et et et et eee eee 
PUT BB BEE PANINI IIA | SOO TN HNMNMNARHAHHAMMOCVTVTVTVTCVTVVCVTVTOVTVTVCOVCVCVCVCVUVCVTTCS 
SNE NNN NIP FPPNININVIODW OOS PNP OW 09  S SS BS BMA MMMMMMMMMMmMmMmMmmMmmmmmmmnrmrrmncrn 
a ee a a a a ee ee ee ee el el el el el el a a al a el ee ae ae ed 
SSNS SSNS SSS SSID AAA AOOAOAO 


PS St 


a" 8 


1 


=-—om 
m0 


<z 


srl 


EsBase' Ime, covtreL erty eg p ECSERSISEL BLUSE ANNE SRESREVDLLTRN.Maa:1 29° (4); 


° ee Ree. 
CHECK RE = Check that exer og p 
TFLD num ; Get NUMBER 
4 eee " f if not specified 
" i i: i 08: ROVL ie § NORMAL ,RO i Successtu 
50 0000" 8F 1 4 $: MOVZWL ios, INSF ARG, RO : COST value missi 
§ O86 1584 S08: SB value missing 


Search for an incoming circuit, waiting for a call, 

and which matches the remote DfE address, if the 

incoming circuit was restricted to a given remote DTE. 
MOVL NETSGL_CNR_CRI,R11 


30$: MOVL #NMASC_CIRUS_INC,R8 
SSEARCH egl,cri,l,use 


BSBW No Soe LPD 


Sete Ge Sete 


Get address of CRI ro 

Start at beginning ¢ of list 

Set value in coat 

Search for USAGE INC ba circuits 
Reject call if none 

Locate LPD esenataten | with circuit 


58 enaeaand DO 
58 01 00 
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NETDLLTRN = Routin Datalink contro 16-SEP-1 AX/VMS Macro V04-00 P 4 
V “600 NeTSbLL Roe CALL = Process talayer X.25 g “SEP=1 1384 8): tf 33 ENETACE. SRCINETOLLTRN.MAR; 1 “~— (48) 
4 & re «SBTTL NETSOLL_X25_CALL = Process incoming X.25 call 
, g > NETSDLL_X25_CALL = Process incoming X.25 call 
£60 ; Attempt to associat he incoming ¢ all with a yatting K.¢3 DLM circuit 
f 3 which is marked ‘‘wait ng fo vor incomi ng call’’. If a circuit is found, 
2 fe ; Queue an event to the circ 
3 64 : Inputs: 
5 £06 : R9 = is number reported in mailbox pessage 
5 6 : R10/R11 = Poser jptor of message data in mailbox message 
: 4 gi 3 (which is a byte-counted string containing incoming NCB) 
08 770 | : Outputs: 
de ben 
05 774 NETSDLL_ x25 CALL:: 
5A 8B 9A 05 775 OVZBL (Rit) R10 : Construct descriptor of incoming NCB 
7E SA 7D O5 ore mova (§P) : Save NCB descriptor on stac 
, ee. : b a CLRQ Rie S55 3; Preset descriptor of remote DTE 
B2 79 + Locate the remote DTE address in the NCB 
01 O02 AB BI 3 781 ios: CMPW 2(R11) ,#PSISC_NCB_REMDTE ; Have we found resote DTE entry? 
09 12 OS At BNEQ 15$ :'If not, continue Looki ng 
6€ 04 AB 9A O05 78 MOVZBL 4(R11),(SP) ; Save descriptor of remote DTE string 
04 AE 0S AB 9E be 784 MOVAB 5(R11),4(SP) 
50 68 3¢ O5 785 15$: MOVZWL (R11),RO ; Get length of entry 
5B 50 CO B2 786 ADOL RO,R14 3 Skip to next entry 
5A 50 C2 05 787 SUBL RO,R10 3 Datrase from Length of NCB left 
E6 14 8 4 3 BGTR 10$ 3 If more left, continue search 
05 790 
be 791 
5 AS: 
5 79 
5 794 
5 795 
5 736 
5 79 
5 798 
5 799 
5 0 
: 1 
3 : 
: 4 
5 
5 
5 
5 


SUOCOCOCCCVCTCOCOOC@WWW® SS SP OOOOOO0 00080 NSS 
MODODOWDOOR ESS POS PF WF UMVO OOO OO OWS MOVIN BANS PN 
ee ee ee a ee a a a a a ad a ef 


t? 0 BLBC f none, ignore circuit 
0 SGETFLD crf, um Get specific remote DIE, if specified 
09 29 58 BLBC RQ. § If a. siecitied allow every ody 
04 BE 6E— 00 68 D CMPCS = R7, (RB), #0, (SP) ,a4(SP) : Does the remote OTE mates? 
fc ig BNEQ 30$ If n ngt ski P tats circui 
(7 22 a6 09 C 5 358: BBCC © #LPDSV_INCOMING,LPDSW_ sre)’ $ ; Check if waiting for call 
- mark it ‘no longer waiting 
gi 3; Circuit found - queue event to circuit with WQE containing 
: : the actual X.25 NCB for the incoming call. 
5E 08 co 2 19 . ADDL 48 ; Pop remote DTE descriptor off stack 
SA BE) ODO 12 MOVG (36) ,R10 : Retreive NCB descriptor 


<z 
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NETOLLTRN - Routin Datalink control Layer 16-SEP-1984 AX/VMS Macro V04-00 Page 43 
VO4-00 NETSOLL Hae cate - Process leseblns X.25 g7SEP 71982 83: ty 33 NETACP.SRCIJNETDLLTRN.MAR; 1 ’ (18) 
2 A OD E1 1813 MOVL R10,R1 3; Set size of extra WQE space 
0 1 ES 1 1 MOVL #WQESC_SUB_ACP,RO 3; Set type of WQE 
FA $" : 181 BSBW Ae ALCO ATE : ANG ate a 
10 a2. 1 Al 1 MOVBso#L LEVSC xX 5 ALL s¥oese Evf(R2)  ; Set event code 
12 A 20 A6 OCB E 181 MOVW tt W_PTH(R6) Gesu REQ! DT(R2) 3; Set hs” ID 
1402. 5A OD FS 181 MOVL WOESL “oma tR2 ; Set size of NCB 
2 3 F? 181 PUSHL . Save WQE address 
24 A2 «6B A Fo 4 ove R10,(R11) ,WOQESC _LENGTH(RD) 3 “Copy incoming NCB into WQE 
5 BE ff 1821 POPL R5 : Restore WQE address into R5 
o77C 6 1 § BSBW NETSOLL_PRC_WQE ; Process event and deallocate WOE 
604 1 RSB 

3S 

$8 \ gi : No circuit could be found to handle the call. Issue a Q10 to reject it. 
SE 08 CO 0605 1 8 bos: ADDL #8,SP 4 remote DTE descriptor off stack 
50 SE od0 0608 1 MOVL SP,RO e pointer to NCB descriptor 

bebe 1830 $Q10_S CHAN=NETS$GW_X25_CHAN, = Reject incoming call 

0608 1831 FUNC =#108_ ACCES si OSM me RT,= 
SE 08 CO Bese 1833 ADDL #8,SP ; Pop NCB descriptor 

05 O62F 1834 RSB 3 and exit 


<z 
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NETOLLTRN = Routin Datalink control layer 16-SEP-1984 01:21:35 VAX/VMS Macro V04-00 Pa 44 
VO4-000 NETSDLL Rae Reset - x535 reset hetected $78 Pa} 984 3:45:38 NETACP.SRCIJNETOLLTRN.MAR; 1 = (19) 
§ = ~SBTTL NETSDLL_X25_RESET = X.25 reset detected 
8 ; NETSDLL_X25_RESET = X.25 circuit was reset by other side 


: This routine is called when a mailbox message is received from PSI 
i indicating that the X.25 circuit has been reset. Our agtion is to 
: on 


issue a ‘reset confirmation’, gt lowing he reset operat on the 
; other side to complete. This is primar ly needed Gur ing datalink 
3; initialization, when there is no receive IRP available to detect 
; reset requests on the circuit. 
; Inputs: 
R9 = Unit number reported in mailbox pessage 
R10/R11 = poser jeter of message data in mailbox message 
(which is 3 bytes of: diagnostic, cause, reason) 


PAE_QEARLAARAALAAAAAAAAA AO 


WAI.ANIAAI NIAAA NIAAA AAA AIA 
Ooo 


None 
ETSDLL_X25_RESET:: 


: Find the LPD whose channel corresponds to the unit 
; number in the mailbox message. 


: Outputs: 
N 


54  00000000'EF dO MOVL NETSGL_PTR_VCB,R4 ; Get RCB address 
55 SC AG 9A MOVZBL RCBSB_AMAX_CPD(R4).R5  ; Get number of LPDs 
18 «613 BEQL ; If none, ignore message 
56 28 B445 —»0 10$:  MOVL  @RCBSL_PTR_LPD(R4)CR5],R6 ; Get LPD address 
11 18 064 BGEG ; Branch if slot not valid 
OC 22 A6 O71 4 BBC #LPDSV_X25,LPD$W_STS(R6),20$ ; Skip if not X.25 circuit 
50 10 A6 DO 064 MOVL PDSL_OCB(R6) ,RO ; Get UCB address 
06 13 4 BEQL 0$ 3 Skip if no datalink 
54 A0 59 Bi 4 CMPW R9 .UCBSW_UNIT(RO) ; Does unit number match? 
06 13 BEQL 3 Exit loop if it matches 
€e5 55 5 gps: SOBGTR R5,10$ 3; Loop Shrougn all LPOs 
05 0$: RSB 3; Ignore mailbox message 


COOOCOCSGOSOOSOOOOSOOSOOOOOSOOSOOSOSOOOSOSOSOOOOOOOOOOOOOOOOOOO 


PRDREDPAEARARAA AA AAA A AAA A AAA AAA AAO 
OV OL MD OOOWOOUIW"NS OLNVI WD VNOOCOCOCCOCO 


5 ; We have found the proper X.25 circuit. Queue an event. 
50$: ELRL R1 3; No extra WQE space needed 

MOVL #WQESC_SUB_ACP,RO 3; Indicate type of W 
BSBW WOESALCOCATE 3 Allocate a work queue entry 

0 MOVL R2,R ; Copy WQE address 

1 MOVE #LEV$C_X25_RESET,WOESB_EVT(RS) ; Set event code 

: MOVW  LPD$W_PTH(R6) ,WOESW_REGIDT(R5) ; Set path ID 

6 ; BBW NETSOCL_PRC_WQE ; Process event and deallocate WOE 
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ng & Datalink control Layer 1 
CV = Process message received f 


se" 


Bre ee bbe 82:79:25 ENETACE.SREINEYOLLSON.MAR 1 2% (50) 


-SBTTL NETSDLL_RCV = Process message received from driver 
NETSDLL_RCV = Process block received from the Transport layer 
FUNCTIONAL DESCRIPTION: 


Received messages are passed to the ACP from NETORIVER oy queuing the non- 

ager DYNSC_NET buffer directly fo ine ACP's AQB. The WQE header and the 

ody of the message are stored within the same buffer. The message is 

: —e determine its type, an event code is generated, and the event is 
spatched. 


When a datalink is initialized, NETDRIVER allocates a single IRP for queuing 
receives to the datalink. Post processing for this IRP takes eiace in 
NETDRIVER which detaches the received buffer and recycles the IRP by queuing 
it again to the same datalink. However, prior to recyer 106 the IRP, if the 
XMSB_STS_ACTIVE bit in IRPSL_IOST2 is clear then NETDRIVER realizes that the 
device has shutdown and passes the IRP to the ACP instead of the datalink. 
The ACP comes here to process this returned IRP. The eventual action should 
be to read the entire IRP$L_I0ST2 —} to detect such songs as device 
entering maintenance mode and to log this event. For now, the IRP is assumed 
to be a signal that the device has shutdown. 


zt 
m 
=D 
PO 
oc 
mo 


> 


On return, the block is eventually deallocated. 


INPUTS: R5 WQE ptr 
ALL others are scratch. 
OUTPUTS: ALL registers are clobbered. 


The expected messages have the following format: 


Phase 2 init <0101 1000><1K_1><EX2_add><16_nam><1B_fct><1B_req>- 
< B.bLksT2><28_népsiz><¢8_maxink5- 
<3b A phe oo cane _sysid> 
Phase 2 verf <0101 1000><1K_25<8B_psw> 


<1B_fct> i3ss £1k.99 no intercept functions 
<1k_7> intercept functions 


<1B_req> ::== low bit = 0 => verf requested 
low bit = 1 => no verf requested 
ignore other requests 


<3B_rtver> ::== <1K_ 0} Bios t-B i 
<3B_comver> ::== <1K_5><1K_1><1K_0> 


PARA AAAAAAAAAAAAA AA AAA AAAAAAAAD-AAASAAAAAAAAAAAAAAA 


CAAA. AAA ANOPIPINIPININPINININS 9 9 OS  MDOOOOOOCOOOOOOOOOOOOOMMC>C 


MRO ODNOA NE WN @ OOD NONE WIN | OOD NA UE WI OS OD NAME WIN O OONAUE WH" OVOOnG VU 


Phase 3 init <0000 0001><2B_srcnode><1B_tiinfo><2B_blksiz>- 
Ph /4 f < 11><2B odeS16 pay? , 

ase ver srcnode Sw 
Phase 3/4 test <000 CHS: B"srcnode><! 28° data> 


Se ee ee i i i ee i ee ee ee ee ee em | 
ee ee a a ae a ee ee ae a a ee ae ed ad dd 
ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
WDOODOODOOOODOODOOOOOOOOOOODOOOO0O0O00000000000'000 0000000000 00 Co CD CoCD CD CD OD CD CD 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSS SS SS SOS OOO SEES. 
ao 


ow 
Se 
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= Routi talink control layer 16-SEP-1984 01:21: AX/VMS Macro V04-00 Page 4 
Vieebbon” NETSDLL RcY 5 raceme message received f §-§ P=-1984 93:43:38 ENETACE. SREINEYDLLTRN.MAR: 1 (20) 
orl 1944 ; Phase 3 rout <0000 0111><2B_srcnode><rtginfo><checksum> 
671 1945 : <1B_tiinfo> ::== <0000bvnn> nn = 00 reserved 
671 1946 ; 5 z reserved 
671 1 ¢3 : = routin 
671 1948 ; = 11 nonrouting 
671 1 ¢8 3 v= no verf requested 
671 1950; = verf requeste 
671 1951 ; b= no DLM blocking 
671 13 § : = DLM block requested 
671 1 3 
; <3B_tiver> ::== <1K_1><1K_3><1K_0> 
er i : <4T. seed> :20e <1K70> 
oi 1989 : Phase 4 init <0000 0001><28_srenoge><i0.t! infer<ep. blksja>= 
ory 1988 | 0000 0111><28. srcnodeStIk OrcecSinfocceheckaeee 
3; Ph 4 t < ><2B_srcnode .0><rtginfo><checksum 
ef 1960 3 Phase & ores rout <0000 Tebtocdh-arcententinbetrebloheranbeshon 
ree 196 ; <1B_tiinfo> ::== <0000bvnn> nn = 89 reserved 
0671 1968 3 = = 01 area routing 
671 1964 ; = 10 routin 
0671 1965 ; = 11 nonrouting 
0671 1966 : v = 0 no verf requested 
0671 1967 : = 1 verf requested 
671 1968 : b = 0 no DLM blockin 
ea 1969 : = 1 DLM block requested 
0671 1970 ; 
; <3B_tiver> ::== <1K_2><1K_0><1K_0> 
067] 1978 : chet seed> ses <1K=0> 
Shy lara 
ta 13e2 NETSDLL_RCV:: ; Process received message 
14 1377 : Establish the context for the event 
00000034"EF 94 0671 1999 CLRB ss XMITFLG : Clear all xmit flags 
B8°EF 94 0677 1980 CLRB PTYPE 3; Clear partner node type 
OODDC EF D4 067D 1981 CLRL —LEV_L_LPD : Clear the LPD pointer 
GE 4 5 19 CLAL LEV-L_ADJ ; Clear the ADJ pointer 
"EF C 19 4 CLROQ LEV-Q- CRI ; Clear the CRI CNF,CNR ptrs 
4°EF B4 F 1984 CLRW LEV-W"PNA ; Clear partner's node address 
8°EF 4 5 1985 CLRW LEV-W-BLKSIZE : Clear partner's block size 
"EF 4 19 CLRB LEV-B- PRIORITY ; Clear router priority 
SEF HI 19 5 CLRW LEV-W-HELLO 3; Clear partner's hello timer 
4'EF 7 7 19 CLRO LEV-Q"PSWDESC ; Clear init password descriptor 
"EF 4 AD 19 5 CLRL NETSGC sui TyER ; Clear recevied INIT message version 
4A 3 5 19 MOVZWL WOES PRC CR »,R1 ; Get offset to message 
51 : C 199 ADOL R5.R ; Convert to pointer 
18 AS 3} D A 1386 MOVL R1,WQESL_EVL_PKT(RS) 3 oT in case packet header 
E 3 
™ 3 ate CNF, LPD, ADJ blocks 
st 36 é ral 1998 LBC n.208 3 1f°tPD no longer exists. skip event 
a : e 
vegneeetaliess i es 5 1999 ” anh = in 3 DISPATCH fails. (for code below) 
. NETSG vcB, :; Get the pointer 
sae hese Sh 4 ry, 1999 BSBB DISPATCH o ; Dispatch to determine the event 
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SEp=}obe 3:49:38 ENCTACE.cREINEYOCL SaN.man:1 2% (300 


f cannot ap skip event 
rocess the event 


d waiting for a buffer then pass this 
- Else, deallocate it. 


; ta A return address 
PD 


; Get the L 


petra 
, IRPSL_SVAPTE (RO) 
Loewe REACT. RCV,RO 


i 
L 
6 
6 
6 
6 
6 
6 
6 
6 


Sete Se Se Ge Se Se Se Ge & 


moO FOWOWwWo™" 
HHH HMMMmMo oS 


oOuUwooo-9o--"0 © 


If EOL then no 
Is there a waiting receive IRP? 
If EQL then none 
; Attach buffer to it 

.and erase our pointer to it 
Fet code is reactivate receiver’ 
Give the buffer back to NETDRIVER 


; Else, deallocate the buffer 


oo 


| 
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TOLLTRN - Routing & Datalink control Layer 16-SEP-1984 01:21: AX/VMS Macro Vv04-00 Pa 48 
VO4-000 Rece ved nessage pre-processing routines ety 83 :45538 NETACP.SRCINETDLLTRN.MAR; 1 - (21) 
ert ! Fr -SBTTL Received message pre-processing routines 
FC : These routines are called after receiving a message to ere-process (parse) 
6FC 3; the message, and store common results in known cells. his partially masks 
re ¢ ; the difference between various versions which are supported. 
ere : : Inputs: 
6FC $ ; R11 CNR address 
6FC : R10 CNF address 
6FC 8 3 R7 ADJ address 
ore : ae LPD address 
FC 0; R WQE address 
ore 138 RG RCB address 
ore 5 ; Outputs: 
ore 5 ; WQESB_EVT = Event to be queued to state transition mechanism. 
bere 8 § : ALL input registers must be preserved by the parsing routines. 
GF 0 § BISPATCH: 
53 10AS5S 9A pers re COVERY ue te ET IRS) RS ; Get Transport layer event code 
144 bee <NETMSGSC_IRP, IRP>,- ; IRP event 
878 04 <NETMSGSC_UNK, UNK>,=- ; Possibly transport control message 
3 0 2044 <NETMSGSC_APL, APL>,- ; Aged packet 
700 2045 <NETMSGSC_OPL, OPL>,- ; Oversized packet loss 
0700 2046 <NETMSGSC_NOL, NOL>,- ; Packet for out-of-range node 
14.4 944 <NETMSGSC_NUL, NUL>,- ; Packet for unreachable node 
700 48 <NETMSGSC PFE, PFE>,- ; Packet with format error 
0700 49 <NETMSGSC_LSN, LSN>,- ; Listener timeout 
700 50 <NETMSGSC_CRD, CRD>,- ; Circuit run down 
4 2) 5 <NETMSGSC_ADJ, ADJ>,- ; Adjacency up 
ats 38 BUG_CHECK NETNOSTATE,FATAL ; Bug if unknown 
7 29 3 
of 2$ 3; The CRD message says that NETDRIVER has just completed it’s last reference 
7 57 ; to the LPD, so that it can be deallocated. This is handled by queueing an 
7 8 ; IRP_DOWN event, which causes the state table to eventually try and deallocate 
4 4 3 the LPD again - which this time, will succeed. 
7 61 : For the Last IRP that NETDRIVER converts into a CRD message, the IRPCNT 
7 § : in the LPD is not decremented until the message Se duet ty s processes by 
7 ? 3; NETACP. This prevents any activity on the LPD until all relevant messages 
4 rt: 3; have been handled. 
10 a6 97-07 6 CRD:  DECB LPDSB_IRPCNT(R6) : Indicate receipt of CRD message 
7 6 3 4 lo Te activity to continue) 
F8DA’ 38 7 8 BSBW ~¥ NX_CO 3: Initialize journalling co-routine 
0D g 53 7 3 BLBC RO, 3508 : Branch if journalling not enabled 
1 7 9 MOVB #*°x335,(R1)+ ; Journal record type = Returned IRP 
81 20 a6 90 07 7 MOVB LPD$B_PTH_INX(R6),(R1)+* ; LPD index 
Bf 7 ye CLRW (R1)+ 3: Indicate no 1/0 function code 
1 C 07 7 CLROQ (R1)+ : Indicate no 1/0 conplotien status 
—E 16 07 74 JSB a(SP)+ ; Log the journalling record 
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; Process the event 


30$: MOVB SLEVEC. IRP_DOUN WOESO_EVT (RS) i Device has shut down 
MOVL #1,R0 
$B 3 Enter state transition 


: Inputs: 

; WOESW_REQIDT = LPD index 

: An IRP was just returned from the datalink layer. Check to see if it 
; applies to the local LPD, because if so, it is a signal that NETDRIVER 
3; is shutting down. 

i 


RP: CMPB YREOU_AESIOT IRS) ALPRSC LOE IM 3 Locol LPD index? 


BNEQ 10$ 3; Branc not 
BSBW ioe TELOCL PD DOU ; Report NETDRIVER shutting down 
stat R ; Do not process any event 


An IRP was just returned for a standard LPD. This is either due 

to the Line going down, or we just entered MOP mode. Set the appropriate 
event so we can enter the state table. 
0$: DECB LPDS$B_ASTCNT(R6) 


BSBW = NETSJNX_CO 


BO eo Ge Ge Se te 


Reduce NETACP’s claim on the LPD 
(for it's receive IRP) 
Initialize journalling co-routine 


BLBC RO, 9s ; Branch if journalling not enabled 
MOVB #*XxX35,(R1)+ ; Journal record type = Returned IRP 
MOVB LPD$B_PTH_INX(R6),(R1)# ; LPD index 
MOVW IRPSWIFUNT(RS),(R1)+ ; 1/0 function code 
MOVQ IRPSL-IOSTI(R55,(R1)* : 1/0 completion status 
JSB a(SP)F : bog the journalling recor 
30$ MOVB #LEVSC_IRP RESET WOESB_EVT(R5) ; Assume X.25 circuit was reset 
CMPW RPSL_TOSTT(R5) ,ASSS_RESET ; Was X.25 circuit reset? 
BEQL 0$ ; Branch yes 
MOVE #LEVSC_IRP_DOWN,WOESB EVE (RS) ; Assume device has shut down 
BBS #LPDSV"-X25°LPDSW_STS(R6),50$ ; Don't check MOP if X.25 
BBC #XM$V_ERR_MAINT,= : Br if not MOP mode 
1OST2(R5) ,50$ ° 


IRPSL~ 
MOVB AEVEC_ IRP_M, WGESB_EVT(AS) : Device entered MOP mode 
#1,R0 ; Process the event 

RSB 3; Enter state transition 


w 
So 
Aad 
3 
< 
ps 


; ADJ = “ADJACENCY UP*’ 
Inputs: 


WOESW_REQIDT = LPD index 
WQESL_PM2 = Descriptor of message (word of length, word of offset) 


~~ oe 
-o 


jacency up message, parse the mosenge received by NETDRIVER, 
the message makes sense, then create an adjacency block 


on 
3° 
as 
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if 132 ; for the new Router or Endnode. The only messages that are allowed 
1 ; are: Start, Router Hello and Endnode Hello. ALL other types of 
f 1 ; messages are ignored. 
007 30 7 1 : ADJ:  BSBW UNK ; Parse received message 
3F 5 E 7 1 L oid 3 If_ cannot parse, then ignore it 
78C 21 8 DISPATCH en B_EVT(RS) ,TYPE=B,<= ; Based on type of message, 
78C 1 <LEV C_RCV RHEL, 108>,= ; Router Hello message 
78C 139 <LEVSC_RCV_EHEL,20$>,- ; Endnode Hello message 
78C 214 <LEVSC“RCV=STR, 5 $>,- ; Start oe +4 - process it 
78C 146 <LEVSC_LOG_NFE,50$>,- ; If error detected, log event 
78C 214 <L VSC_LOG_ADE. 3 $>.- | 
78C 133 <LEV$SC_LOG_ CDE ,50$>> : 
2C 3611 «#+O7CB 2145 408: BRB IGNORE _MSG ; Otherwise, ignore the message 
05 rep 196 50$: RSB ; Return to queue the event 
7CE 214 H 
; outer Hello message - process new router adjacency 
ea == 
04 €1 O7CE 2151 108: BC #LPDSV_RUN,- ; Skip if circuit not in RUN state 
26 22 Ag 700 21 : LPDSW_STS(R6), 1GNORE_MSG 
161 30 07D 1 BSBW BRA_UP ; Broadcast router is up 
7D 154 3; Reset R7 to point to new ADJ block 
20 50 €9 O7D 13? BLBC RO, IGNORE_MSG ; If cannot allocate, then forget it 
20 aS = 58 Be 709 21 § MOVW RB, WOESW_ADJ_INX(RS5) ; Store new ADJ index 
0 POD 1 RSB 3; Queue event set by UNK 
oe 133 3  Endnode Hello message - process new endnode adjacency 
04 €1 O7DE 2161 208: BC #LPDSV_RUN,- ; Skip if circuit not in RUN state 
16 22 A6 7E 168 LPDSW_STS(R6),1GNORE_MSG 
16FA 30 O7E 16 BSBW BEA_UP ; Broadcast endnode is up 
7E6 2164 3; Reset R7 to point to new ADJ block 
10 30 —9 44} 165 BLBC RO, IGNORE_MSG 3; If cannot allocate, then forget it 
20 AS 8 B60 O7E 196 MOVW RB ,WOESW_ADJ_INX(RS) ; Store new ADJ index 
Pep 16 $LOG TPL_AUP,,,. 3; Set “adjacency up" event 
F808" 30 7F 168 BSBW NETSEVT_INTRAW 3 Log the event record 
0 7F 1 RSB 3; Queue event set by UNK 
reo Sr 
7F9 17 ; This routine is called when we have received a message which 
7F9 «2173; is valid when a adjacency is normally up. but which must be 
7F9 2174 ; ignored when the adjacency is still undergoing initialization. 
HS Bite: 
oe 199 IGNORE _HSG: 
50 D4 OQ7F 178 CLRL RO : Do not queue any event 
05 O7FB 217 RSB 
ree Sy 
re } § ; Determine the type of message received, dispatch to parse it 
7FC 2184 * 
02 61 02 «00 Fe 4a 185 UNK: CMPZV «=. #0,#2,(R1) ,ATRSC_MSG_RTH ; Phase III/IV Data Packet? 
F6 1 § BEQL ORE_MSG ; so, drop message on the floor 
Sy oooopges "tt 9E 3 21 MOVAB MSG_MAP_TABLE,R9 3 setup the message mapping table ptr 
1 9A A 2188 MOVZBL (R13+,R3 ; Get the message type 
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CMPB Rs #TR2C_MSG_INI ; 
BNEQ «BOS ; 
TSTB 3s = (R11) ; 
MOVZWL (R1)+,R3 : 

80$:  MOVL  (R9)+.R : 
BEQL Pre : 
MOVZWL (R9)+,R2 ; 
CMPW | OR3, (RO) : 
BNEQ 808 ; 
SUBW  =- R2,, WOESL_PM2+2(R5) : 
BLSS pre ; 
JSB (RO) : 
RSB 


and the adjacency to be shutdown. 


LSN: ; 


If this is a DMC Line, then we will t 
circuit to force ony 

here because the DM 
hang up the modem. 


driver cannot fi 


Sete Sete tee 


PEW @§ OOD NIA NE 2§ 9 OD NIA NE WIN 9 OOD NA UE WIN 9 OD NAME UP  O OOONIOA UNE 


PPE & MAMA ANI ALALAILAIPPIPOPIPOPINIDINIDY) 4 I QOD DOOOOCOOOCOCOOOWOOWOVWOO 


MOVZBL LPD$B_PLVEC(R6) ,RO ; 
CMPB ss PLVECSAB_DEVCROJ,- ; 
#DEVTRNSC_DEV_DMC ; 
BNEQ ; 
BISW  #LPDSM_TOGGLE,- ; 
LPDSW_STS(R6 ; 
10$: CLRL WOESL~EVL PKT(RS) : 
$LOG TPL_LBS,TPL_PRSN_LTMO, .R5 

pt BRB ADJ~DOWN_EVENT 
BUMP 8, RCBSB_CNT_PFE(R4) ; 
$LOG _—- TPL_PFM7,,RS : 

ADJ_DOWN_ EVENT: 

AOVB #LEV$C_LOG_ADE,WOESB_EVT( 
MOVL #1,RO ; 
RSB ; 
3; NETDORIVER messages which simply cause 
OPL: ; 
$LOG TPL_OPL,,.R5 : 
se BRB NON7FATAL ; 
BUMP = B,, RCBSB_CNT_APL(R4) ; 
$LOG TPL_APL;,.RS ; 
aa BRB NON” FATAL : 
UMP =: W, RCBSW_CNT_NUL(R4) ; 
LOG TPL_UPL7,.RS ; 


B73Ep=1986 O24 


; Store logg 
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re 


branc 


Get the type and subtype 

Get message parser routine address 
If at end of table, log error 

Get minimum msg size 

Is this it ? 

If not, loop 

Update bytes left 

If LSS then packet format error 
Parse the message 


;  NETORIVER messages which cause a DECnet event record to be written 


Adjacncy Listener timeout 
oggle the Line as well as the 


modem connections, to hang up. This is done 


gure out on it’s own when to 


Get PLVEC inde 
C1 


x 
Is this a DMC11? 


Br i 


f no 
; Else, force a Line toggle 


Indicate no packet for this event 
3; Store logging info in WQE 


Packet format error 
Increment packet format error count 
Store logging info in WQE 


R5) ; Setup to log event 
rocess event 


; Return true - process event 


a DECNET event record to be written. 


Oversized packet loss 

Store logging infs into WQE 
Take common exit 

Aged packet loss 


; Increment eged packet loss count 


ng info in WOE 
Take common exit 
Node unreachable packet loss 


; Increment node uareschabse loss count 


Store logging info in Wa 
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13. —=O«W1 9C rk BRB NON_FATAL ; Take common exit 
9E 4 ; Node out-of-range packet loss 
H ‘3 BUMP B,RCBSB_CNT_NOL(R4) ; Increment node out of range loss count 
A 4 $LOG  TPL_RPL7,,RS ; Store logging info in Woe 
1 50 NON_FATAL: : re non-fatal event exit 
10 AS 2 90 1 51 MOVB #LEVSC_LOG_NFE,WOESB_EVT(R5) ; Setup for ‘log non-fatal event’ 
50 . 2 5 26 MOVL #1,R0 ; Process event 
0 ez RSB ; Return true - process event 


J 6 
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-SBTTL RCV_STR2 = Received Phase II start message 
RCV_STR2 = Process received Phase II Transport Initialization Start message 
FUNCTIONAL DESCRIPTION: 
The possaye is parsed to determine Sorressness, Gede address, and the 


Sec goone checked to determine whether a verification message needs to be 
ent. 


SUSI 
“IO 


NAME WR @§ OOO NAN E WIN O OODNAU EWN 0 ODNAUL WN 0 OONOU SW —O00 


The possible events returned in WOESB_EVT are: 


LEVSC_RCV_STR = Rev Transport Layer ‘‘start’’ msg 
LEVSC_LOG_FTE = Fatal event 


OOD0000000000000000000 


TO o Se Oe Se Se Oe Be Ge Be Be Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SeSe tess 
a 


& mo 


INPUTS: R11 CNR address 
R10 CNF address 
R7 ADJ address 
R LPD address 
R WQE address 
os RG RCB address 
HS R1 Ptr to next byte in the message 
ALL others are scratch 
OUTPUTS: R5 Unchanged 
RO True if event to be processed, false if not 
is ALL other regs may be clobbered. 
4 CV_STR2: ; Process rcvd phase II Start msg 
: Parse the node address. 
88 


6sBw panee PH2_ADDR ; Parse Phase II node address 
BLBC RO,50$ ; If LBC error, chain to event setup 
> by PARSE_PH2_ADDR 


Process the nodename field. The size is checked but the name text 
itself is ignored (this is consistent with not knowing the name of 
a Phase III node and allows the rules for Phase II and Phase III 
nodes to be the same with respect to whether or not there needs 

to be an NDI in the database for that node -- i.e., an NDI is 
needed only if ‘verification’ is required for the circuit which 
connects to the node). 


MOVZBL (R1)+,R 
SUBW 


Soa oaw 
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Get bytes in node name 
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0 3 
C UB RO, WOESL_PM2+2(R5) ; Account for them 
C BLSS 106$ : If LSS then msg is too small 
; ADDL RO,R1 3; Advance past name 
c : Ignore the FUNCTIONS field 
a 95 C 208: tSTB (R1)+ 3: If LSS then field is extended 
rw C 2 BGEQ 228 3: If GEQ then okay 


se" 


00000018 ‘EF 


00000038 'EF 
00000000 EF 
saaaeet 

10 AS 
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Received Phase II start messa 


SSEb=198« 82:49:35 ENETACE. SRESNEYDLL TRW.mAR: 1 


Page 


Account for next (optional) byte 
If LSS then format error 


BC verification not required 
dicate ver) i teation required 
then field is extended 
GEQ then nN okay 
ount for next (optional) byte 
LSS then format error 
op 


Save partner's block size 

artner's NSP block size 
LINKS specifier 

s Phase Il 
bytes) 


pers adjacent node 
; Save INIT version ( 


‘rcvd start msg' 
3; Return true - process event 


1 DECW WQESL_PM2+2(R5) ; 
1 BLSS $ $ 
1 BRB ; Loop 
18 228: : 
! : Process the REQUESTS field 
i$ 6Bc #TR2V_REQ_VRF,(R1),25$ ; If 
0 SETBIT LPDSVXMT—VRF.XMTFLG i In 
1 25$ TSTB ibs 3: If LSS 
§ BGEQ 27$ s if 
DECW WOESL_PM2+2(R5) 3 Acc 
4 BLSS 100$ 3 if 
5 ons BES 2 3 Lo 
§ $ Get the partner's block size and version 
§ MOVW  (R1)+,LEV_W_BLKSIZE : 
0 TSTL (R1)+ :; Skip over 
1 : and his MA 
¢ MOVB #ADJSC_PTY_PH2,PTYPE 3 
MOVW CRI) ¢ RETSGL_INITVER 
4 MOVB (R1)+,NETSGL-INITVER+2 
5 MOVB #LEV$C_RCV_STR,WOESB_EVT(RS) ; Event is 
§ 50$: MOVL #1,R0 i Dretess event 
f RSB 
9 100$: BRW PFE 


; Packet format error 


(23) 
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-SBTTL RCV_STR3 = Received Phase III start message 


™ 
wro— 


RCV_STR3 = Process received Phase II Transport Initialization Start message 
FUNCTIONAL DESCRIPTION: 
The peseoge is parsed to determine correctness, Geode address, and the 


91 
91 42 ;+ 
91 45; 
91 44 ; 
91 45 ; 
318 5329 | 
4 i ; Gotadere s checked to determine whether a verification message needs to be 
91 50 ; ; 
91 51 ; INPUTS: R11 CNR address 
91 26 3 R10 CNF address 
91 $ R7 ADJ address 
91 54; Ro LPD address 
91 2? 3 f WQE address 
91 § : RG RCB address 
ad : 3 R1 Ptr to next byte in the message 
4} 33 : ALL others are scratch 
91 61 ; OUTPUTS: R5 Unchanged 
4} 66 3 RO True if event to be processed, false if not 
O91 64 ; ALL other regs may be clobbered. 
0313 66 :- 
Bale i RCV_STR3: :; Process rcvd phase III/IV Start msg 
0915 9% : Compare version numbers. If we receive a start from a node 
bale ; 0 ; with a higher version number, then drop the message. The 
091 71 3 other node will detect that we are lower version and re-send 
0915 338 3; «©6the correct start message. If the version is lower than ours, 
Bie a7 ; but we don't recognize or support it, then log ‘version skew'’. 
51 DD 315 38 PUSHL R11 3 Save current pointer 
51 05 Al 3 91 376 MOVAB 5(R1),R1 3 Point to version field 
0356 3 918 77 BSBW PARSE_VERSION ; Parse version number field 
1 8ED0 44; 78 POPL 1 3; Restore current pointer 
0301 8F O05 Al Bi Q9 79 CMPW 5(R1) ,@TR3SC_TIVER :; Is it Phase III version? 
05 13 0927 0 BEQL : If so, override error - we can handle it 
41 28 E9 0929 1 BLBC RO, 308 : If error, chain to new event 
4 11 43 : § BRB RCV_STR4 ; If no error, then Phase IV 
3 ; 4 ; Parse the Phase III start message. 
0387 30 09 : 6 5$: 6sBw PARSE PH3_ADDR : Parse phase I11 node address field 
39 50 —s«E9 ® } BLBC RO, 308 3 Or on ercor vith new event setup by 
07 61 O02 €1 Q9 : BBC #TR3V_REQ_VRF,(R1),10$ ; Br unless verification is requested 
938 , SETBIT LPOSV_XMT_VRF ,XMTFLG ; Need to send verif. msg 
EF O93F 91 108: EXTZV = #TRSV_REQ_NTY,- ; Get node type 
50 —s 81 941 35 #TRSS REQ NTY,(R1)+,R0 ; 
00000038 'EF 90 0944 239 MOVB #ADJSC_PTY PHS.PTYPE |; Assume Phase III routing 
02 91 0948 2394 CMPB a0 #TR3C_NTY_PHS : Is it a routing node? 
F 13 094 95 BEQL § : If EQL yes. cont inue 
Go000058 "Er 1 9 ast 3 MOVB #ADJSC_PTY_PH3N,PTYPE ; Assume Phase III non-routing 
3 50 91 09 9 CMPB ss RO, ATR3C_NTY_PH3N : Is it a non-routing node? 


TOLLTRN = Routing & Datalink control la A. 19-3 P-1984 AX/VMS Race 04-00 Page 
Voacd60 RCV STROo= Received Phase III start mess Pa} 98: 8}; 9; 33 NETACP /SRED NE DLLTRN.MAR; 1 . (3%) 
0 A BEQL 0 {,é EQL yes, contin 
FEF f BRwW Fr : lse report ‘Qacke t wfornat error’ 
Goo0Ts "EF 8 20$: MOVW )+,LEV_W_BLKSIZE : tore per ner thet block s 
§ § 4 ADDL " nak. on 
10 A 4 MOVE Rett. RCV_STR,WOQESB_ evtird) t is Tee start msg’ 
5 B 9 B 403 30$: MOVL Pr poles : cen nt 
9 404 RSB Return true - process event 
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i - Receive ase IV start messa 5-SEP- 219; ° LLTRN.MAR; 
Yo eb00 RCV STRGS Received Ph I } : SEP-1984 83 "4 33 ENETACP SRC JNETDLLTRN.MAR; 1 . (3a) 
14 : § -SBTTL RCV_STR4 = Received Phase IV start message 
3 4 - Process receive ase ransport Initialization Start message 
44 Z RCV_STR4 Pp ived Ph Iv T Initialization § 
4 2 ; FUNCTIONAL DESCRIPTION: 
971 2412 ; The message is parsed to determine correctness, node address, and the 
971 2413 ; database is checked to determine whether a verification message needs to be 
gH] Site | Sen 
971 21§ 3; INPUTS: R11 CNR address 
971 2417 ; R10 CNF address 
971 $13 3 R7 ADJ address 
971 2419 ; Re LPD address 
B35) 420 ; R WQE address 
971 2421 ; RG RCB address 
595} r § 3 R1 Ptr to next byte in the message 
+44 2 : 3 ALL others are scratch 
0971 24 8 3 OUTPUTS: RS Unchanged 
pert ? ; RO True if event to be processed, false if not 
$991 429 ; ALL other regs may be clobbered. 
ae 
971 246 § RCV_STR4: 3; Process rcvd grece IV Start msg 
0344 30 0971 24 BSBW pares PH4_ADDR ; Parse phase IV node address field 
5450 €9 0974 2434 BLBC RO, 308 3; Br on error with new event setup by 
part 435 ; PARSE_PH4_ADDR 
07 61 O02 €1 0977 2436 BBC #TR4V_REQ_VRF,(R1),10$ ; Br unless verification is requested 
444 437 SETBIT LPDSV_XMT_VRF ,XMTFLG ; Need to send verif. msg 
00 EF 0982 2438 10$: EXTZV #TRSV_REQ_NTY,- 3; Get node type 
50 81 02 Baas 439 #TR3S_REQ NTY,(R1)+,RO ; 
00000038'EF 04 90 0987 2440 MOVB #ADJSC_PTY_PH4,PTYPE |; Assume Phase IV routing 
02 50 91 O98E 2441 CMPB seRO, ATR&C_NTY_ROU : Is it a routing node? 
1? 13 0991 726 BEQL 3; Branch if so 
O0O00038'EF 0 90 0993 244 MOVB #ADJSC_PTY_PH4N,PTYPE ; Assume Phase IV non-routing 
03 50 91 O99A 2444 CMPB RO, #TRSC_NTY_NROU 3 Is it a non-routing node? 
OF 13 099D 2445 BEQL : If EQL yes. continue 
O00000038'EF 03 90 O99F rr MOVB #ADJSC_PTY_AREA,PTYPE ; Assume Phase IV area routing 
1 3 91 O9A && CMPB RO #TREC_NTY_ARO ; Is it area-router? 
03 15 O99 e448 BEAL = 208 ; Branch if so ! 
FEA1 1 09 44 BRW PF ; Else report ‘‘packet format error 
00000018 'EF 2 9A 450 208: MOVW (R1)+,LEV_W_BLKSIZE ; Store partner's block size 
1 a: 98 451 ADDL #3,R1 3 skip version field 
16 a3 83 988 43¢ IST WOESL_PH2+2(R5) : 8 was msg exactly 10 bytes? 
: so, 
01 Al 94 098 454 CLRB eta 3 Clear high order byte for those 
9C $2? 3 impl. who gntyused 1 byte hello 
00000020'EF 1 8 9C 4 § 25$ MOVW (R1)+,LEV_W_HELLO : gyore partner's ello timer 
10 AS 8 9C 45 MOVB #LEVSC_RCO_STR,WOESB_EVT(R5) ; Event is ‘rcvd start msg’ 
50 = «O01 9CB $28 30$ MOVL #1,R0 ; Process event 
9CE 245 RSB 3; Return true - process event 
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ved routing veri -SEP- NETACP.SRCJNETDLLTRN.MAR; 1 
-SBTTL RCV_VRF = Received routing verification message 


srl ac 


VRF2 = Process received Transport Phase II Verification message 
-VRF5 = Process received Transport Phase III Verification message 
.VRF4 = Process received Transport Phase IV Verification message 


FUNCTIONAL DESCRIPTION: 


Dzmwaw 
QOOon 
<<< 


INPUTS: R11 CNR address 
R10 CNF address 
R7 ADJ address 
R6 LPD address 
R5 WQE address 
R4 RCB pointer 


R1 Ptr to next byte in the message 
ALL others are scratch 


OUTPUTS: R5 Unchanged 
RO True if event to be processed, false if not 


ALL other registers may be clobbered. 


-ENABL LSB 


RCV_VRF 2: : prapresass rcv'd Phase II Verf msg 
MOVB II 


00000038'EF 02 90 O9CF #ADJSC_PTY_PH2,PTYPE 3; Mark node is Phase 
08 61 09D CMPW S*#TR2C_PSO_LNG,=- ; Is the msg size correct? 
16 AS 09D WOQESL_PA2+2TRS) : 
18 13 Q9DA BEQL  5$ ; If EQL yes, save password - 
FE70 38631 44 BR PFE ; Else report ‘‘packet format error 
9DF 2495 RCV_VRF3: 
9DF 496 RCVIVRF4: 
0206 30 O9DF 249 BSBW PARSE _PH3_ADDR ; Get porters address 
2250 €9 3Ee 49 BLBC RO,108 ; If LBC error, exit with event setup 
965 249 > by PARSE_PH3_ADDR 
0 3} 9A O9E5 2500 MOVZBL (R1)+,R0 ; Get count of password text 
1645 50 81 O9EB 301 CMPW «RO, WOESL_PM2+2(R5) : Does it match bytes left? 
1D 12 OQO9EC 25 ¢ BNEQ : If not, illegal message 
40 8F 50 91 O9E 5 CMPB RO, #TR3C_MAX_PSW ; Is it too corge 
17 =A 4 : BGTRU 20$ :; If so, illegal message 
3 tore the password descriptor 
oe Ss h dd ipt 
5 OF 4 : 8 5$: MOVB = @LEVSC RCV VRF ,WOESB_EVT(RS) : Setup event code 
0009002 3 16 A5 9A O9F MOVZBL WOESL PM2+2(R55,LEV_G_PSWDESC ; Save password size 
0 ‘tT 3\ D A 19 Ri -LEV_@_PSuDesc+4 ; Save password pointer 
0 3 A 11 10$: MOVL #i,R 3; Process event 
~ A \ RSB ; Return true - process event 
FE41 = 31 ns : Hf 208: BRw PFE ; Report ‘‘packet format error’’ 
AOE 16 -DSABL LSB 
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RCV_RHEL = Received Phase IV Router Hell 5-SEP-19 NETACP.SRCIJNETDLLTRN.MAR; 1 


B 

PARSE _PH4_ADDR 
: Parse the node type code 
EXTZV #TR3V_REQ_N 


“ f 1 ‘. -SBTTL RCV_RHEL = Received Phase IV Router Hello message 
A E : RCV_RHEL = Process received Phase IV NI Router Hello message 
A E : : FUNCTIONAL DESCRIPTION: 
AOE 4: The message is parsed and validated, and an event is queued indicating 
. ; 525 ; that the message needs processing. 
AOE 3 + INPUTS: R11 CNR address 
AOE 3 : R10 CNF address 
AOE 2 5 R7 ADJ address 
AOE 0; R LPD address 
AOE 2531; R WQE address 
AOE 25 § : RS RCB address 
BANE : ? 3 R1 Ptr to next byte in the message 
DAGE : 5: ALL others are scratch 
OAOE 25 $ > OUTPUTS: R5 Unchanged 
ABE 2 8 : RO True if event to be processed, false if not 
tbe 340 : ALL other regs may be clobbered. 
ARE 246 RCV_RHEL: ; Process rcvd Phase IV Router Hello 
AOE 2544 : Compare version numbers. If we receive a message from a node 
QAOE 2545 ; with a higher version number, then drop the message. The 
QAOE 2546 : other node will detect that we are lower version and re-send 
QAQE 2547 ; the correct message. If the version is lower than ours, si 
Ae 278 : but we don't recognize or support it, then log ‘version skew’’. 
02F3 30 OAOE 550 6SBwW PARSE VERSION ; Parse the version field 
76 50 =€9 Ai} 22) BLBC RO, 308 3; If error, chain to new event 
pale 338 : Parse the remote node's address 
000400AA 8F 81 D1 Als 339 CmPL (R1)+,#TRSC_LNI_LPREFIX =; Standard NI prefix? 
0298 i A1D 328 BSBW panes PH4_ADDR : parse phase IV node address field 
67 50 +€9 “ 228 BLBC RO, 308 ; Br on error with new event setup by 
A23 2560 ; 
" 58 | 
68 EF OA 6 -REQ_NTY,= ; Get node type 
5081 A 3364 #TR3S-REQNTY.(R1)+,RO_ ;: 
00000038'EF 04 90 OA 65 MOVB @#ADJSC_PTY_PH4,PTYPE |; Assume Phase IV routing 
02 50 91 OAgF 268 CMPBsdRO,, #TR&C_NTY_ROU : Is it a routing node? 
F {3 A ¢ 6 BEQL 20§ : Branch if so 
epee a A 208 MOVB #ADJSC_PTY_AREA,PTYPE ; Assume Phase IV area routing 
1 ‘ 91 OA $ CMPB  —s-RO,, #TR&C_NTY_ARO : Is it area-router? 
05 15 OA : BEQL © 208 ; Branch if so. P. 
FEOC 31 a 4 208 BRW PFE ; Else report ‘‘packet format error | 
A4 78 ; if this is a message from a node in another area, then ignore | 
AS 74 : t unless then node is also a level 2 router. We assume that 
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. 75 ; the qnly wey te get a message from another area past the address 
n 


vr 6 3; = parsing rou for us to be a level 2 router. | 
AS 78 3; This essentially allow bevel2e\evel2 connections, but 
ve 7 : disallows level2-levell connections over the NI. 
EF OA4 ? ExTzv aTRGSY _ADDR_AREA, = ; Get area number of sending node 
4 58 8 AS § #TR4$S-ADDR-AREA *R8 RO 
088 C4 1 AG CMPB H RCBSB_HOMEAREA(R4) =; Our area? 
- 7-9 ASD 4 BEQL ; If not, drop the message 
03 aw 91 OAGF 5 CMPB PTYPE,#ADJSC_PTY_AREA ; Is the remote node a level 2 router? 
6 12 . § 228 BNEQ 70$ 3: If not, ignore the message 
a 3 ; Parse remaining fields 
00000018 ‘EF 1 4 A 0 MOV (R1)+,LEV_W_BLKSIZE ; Store partner's block size 
0000001C EF 1 0 OASF 91 MOVB (R1)+ *LEV™ B-PRIORITY ; Store router priori ty 
1 #O A6 238 INCL R1 : Skip AREA reserved field 
00000020‘ EF 8) 8 Ab6 9 MOV (R1)+,LEV_W_HELLO : Store partner s hello timer 
pe AGF 2594 BNEQ 25$ : && If not filled in, essune iié impl. 
need 61 4 A71 232 MOVZBW (R1), ey W_HELLO ; && who still used 1 byt hel 
1 O9 A78 38 25$: ADOL #iel+ ; Skip reserved, count byte. LOSICAL NAME 
16 AS 1 A7B 259 MOVZBW (R1)¢ "UOESL _PM2+2(R5) : Store size of 
51 ae A7F 2598 SUBL R5,R1 y peneute offset 4: we "Uist 
14 AS 1 3 AB2 2599 MOVW R1,WQESL_PM2(R5) sto re offset to. list 
10 AS = OD 0 OA86 ret MOVB #LEV$C RCUV_RHEL ,WOESB ‘pd ) ; Event is ‘rcvd Router Hello’ 
50 62(01 t' ABA 2601 30S: MOVL #1,R0 ~ 3 Process event 
0 A8D one RSB ; Return true - process event 
ABE 260 
ABE 2604 
ABE 982 
ABE 5607 
50 D4 4 608 70S: CLRL RO ; Return false - do not queue event 
05 QA9 609 RSB 


Drop the message on the floor. 
| 
| 
| 
| 
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A91 1 -SBTTL RCV_EHEL = Received Phase IV Endnode Hello message 
no i  RCV_EHEL - Process received Phase IV NI Endnode Hello message 
A91 3 
ng 1? 3; FUNCTIONAL DESCRIPTION: 
491 i : The message is parsed and validated, and an event is queued indicating 
A ! 218 ; that the message needs processing. 
a8 30 ; INPUTS: R11 CNR address 
Ad) : R10 CNF address 
A91 3 R7 ADJ address 
Ad) 5 3 R LPD address 
A91 2626 ; R WQE address 
A91 2625 ; RG RCB address 
A91 26 § 3 R1 Ptr to next byte in the message 
A91 2627 ; 
A91 26 3 3 ALL others are scratch 
091 4 0 ; OUTPUTS: R5 Ynchanged 
A91 2631 ; RO True if event to be processed, false if not 
ra 3 4 : ALL other regs may be clobbered. 
091 3 ¢ acy EHEL: ; Process rcvd Phase IV Endnode Hello 
A916 E 2 
: i bers. If we receive a message from a node 
bag 3 : it wa higher yersien number, then drop the message. The 
A91 2639 ; other node will detect that we are lower version and re-send 
A91 §=2640 ; the correct message. If the version is lower than ours, 1“ 
A91 «92641 ; but we don't recognize or support it, then log ‘version skew’’. 
A91 264 . 
; Parse the version field 
SB BY Ree perme rere erate ttt 
ng big ; Parse the Endnode Hello message 
Ad 4 : 
PREFIX ; Standard NI prefix? 
000400AA 8F ¢ 0) aay $38 Ha (R1)+,#TRSC_NI_PREF I | meee if 4. 
0215 3 AA 650 BSBW PARSE _PH4_ADDR 3; Parse phase IV node address field 
38 50 =O AA 651 BLBC RO 308 “ 3 Bron error sr new event setup by 
A EF Aa $28 EXTZV #TR4$SV_ADDR_AREA,- ; Get area number of sending node 
5 AA 4 #TR4$S- ADDR AREA,RB,.RO 
3088 C4 91 23 CMPB = RO, RCBSB_HOMEAREA(R4) =; Our area? 
12 OAB 5 BNEQ 7 es : If not. drop the message 
ED OAB g8 CMPZV) — #@TR3V_REQ_NTY,- ; Get node type 
81 AB 6 #TRSS_REQ_NTY,(R1)+,- — ; 
AB ra #TR4C“NTY_NROU ; Is it a endnode? 
3 OAB 3 te. iti ; Branch if so, = 
FD 1 QAB9 ? BRW PFE ; Else report ‘‘packet format error 
38°EF AB 662 208: MOVB #ADJSC PTY PH4N.PTYPE ; Mark Phase IV endnode message 
aaadtatt F 1 86 ace 5 MOVW (R1)+,CEV_@_BLKSIZE : store artner's block size 
5 C ACA $i ADOL #14846 R1~ ~ ; Skip AREA, SEED reserved fields 
ACD vee suL8 3 3h tae +f; posed router) 
. +,LEV_W_HELL 3 Store partner 
econ 6} Fs ADS $9 BNEG sy LeVW. ; 86 If not filled in, assume old impl. 
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v6: 


AD6 266 MOVZBW (R1),LEV_W_HELLO + Al who still used 1 byte hello 
90 OADD : MOVB wevec. RCV-EHEL ,WOESB AEVECR ) ; Event is 'revd Endnode Helio’ 
3 g MOVL 3 Process event 
B ; Return true - process event 


Lat RO ; Return false - do not queue event 
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DAE a: -SBTTL RCV_RTS = Received Phase III routing message 
; RCV_RT = Routing message received 
FUNCTIONAL DESCRIPTION: 


Ptr to next byte in the message 


DAE § Verify the routing message header and checksum and queue a 
ME routing update event. 

DAE : INPUTS: R11 CNR address 
DAE , R10 CNF address 
E R7 ADJ address 
DAE § R LPD address 
R WQE address 
: RG RCB pointer 


ODOOOO0O0O 


ALL others are scratch 


OUTPUTS: R5 Unchanged 
RO True if event to be processed, false if not 


Se 


Te + Se Se Ge Se Se Se Se Se Be Be Se Se Se Se Se Se Se Se Se Sete 
= 
ee 


ALL other registers may be clobbered. 


>>> 
mmm 
SII NOAA OOOO 


0 
1 
me S708 
‘ = 
DAE 705 RCV_RT: poqees a routing message 
00 01A7 91 + OAE 7 $ CMPB ADJ$B_PTYPE(R7) ,#ADJSC pty’ PH yy an or Phase IV? 
07 13 DAEC 27 BEQL RCV_RTS ; Branch if P 
1 A2 OAE 7 : SUBW #TREC_RT LNG= TRSC JRT -LNG, ; Adjust rei of msg left 
16 AS DAF 7 WOESL-PM2+2 ; for Phase IV message 
0071 31 RA 9 BRw RCV_RT4 ; Process Phase IV routing message 
‘ 
DAF ay RCV_RTS: 
00000038'EF 00 DAF 71 MOVB #ADJSC_PTY Pus PTYPE 3; Indicate type of message 
91 9 DAFC 2714 BSBW PARS ght _ADD 3; Parse the node address 
4 2 E DAFF 2715 BLBC : If LBC then error 
14 AS §1 AS 06 $ rig SUBW3 ee hl. st PM2(R5) ; Save offset to current msg byte 
59 16 AS 3 : 71 MOVZWL TRS) RO ; Get msg bytes remaining 
2 33 E : ne BLBS 3; Must be an even nusber 
59 7 Se : 71 DIVL a 3 Get number of words 
24 «COT a1 , p BEQL § : Illegal msg if EQL 
B1 7 § 3 Calculate checksum -- R9 does not include the checksum. 
B1 7 ; The highest node address associated with a non-infinite cost/hops 
BI 724 ; message cell is determined. If that address is greater than 
+ 4 5 ; our current ‘max address’ then it is reported as an event. 
50 gt 0 0813 27 $ MOVL =: #1, RO ; Setup loop counter 
2 C 061 7 3 CLRQ R2 3 t check sum (R2) and highest node 
B1 ? ; (RS) reachable by partner a 
7FFF BF = 61 1 BI 7 9 10$: CMPW (R1) ,@°X<7FFFD> : Compare to infinite ‘‘cost,hops 
1 A 0B1D 27 BGTRU 13$ ; If GTRU then field is invalid 
1 BIF 27 § BEQL 11$ : If EQL then not reachable by > portner 
i) B21 27 MOVL RO,R3 ; Save highest reachable © over dre 
1 AQ 0824 2734118: Add (R1)+,R2 ; Calculate checksum via 1's complement 
8 D B27?) 3=62735 ADWC #0. RE 3 - needs ‘‘end Sround carr 
pa r BeA 27356 AOBLEQ R9,RO,10$ ; Loop until all segments processed 


scuti - SLPHASOSTTL S82 moe TECHEPSISSS ISGU:ES WMECQEE.SHESReYBRRa mans P89" cf 


10 a3 3 e} : pave * wLEVSC RCV_RT,WOESB_ tery i. fet up alfa assuming valid checksum 
: va 
; : QL If EOL then valid 
: 13$: LOG TPL_LDS, TPL_PRSN “ruts, ni | due to frout ng update checksum'’ 
Fo20 31 OBSE gr BRW = = ADJ DOWN_EVENT ; Report fatal event 
+ 748 ; The message is okay. Log partial routing update loss" if needed. 
SA AG 53 8B! a4 746 15$: CMP R3,RCBSW_MAX_ADDR(R4)— ; address within range? node 
: 3 r iW range 
1A 18 0B4 74 BLEQU§ 50$ 3; If LEQU then yes 
B 4 oes BUMP 8 RCese.. CNT_RUL(R4) : Inc count ga event 
B53 874 $LOG = TAL orks RS ; Setup event logging code 
1 AS 553 8° B5B 2750 MOVW R3,QQE$B. ravi © Ad bets 3; Store partner's highest reachable node 
F49E" BSF £31 BSBW nets SEVT_ : Log the event 
50 601 o +4) 7 ¢ 50$ MOVL 1,R 3; Process event 
0 B6 75 RSB ; Return true - process event 
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; -SBTTL RCV_RT4 = Received Phase IV routing message 
; RCV_RT4 = Phase IV routing message received 


se" 


Verify the routing message header and checksum, and queue a 
routing update event. 


Inputs: 
R11 = CNR address 
Rio = CNF address 
R7 = ADJ address 
Re = LPO address 
RS = WQE address 
= RCB address 
R1 = Pointer to next byte in message 
Outputs: 


RO = True if event to be queued, false if not 


TEPe eS eS e Oe Oe Oe Oe Oe Oe Se Oe Se Se Se BeBe Sess 
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OOOO OOOO 000909 III IPP PPP APP AAP APPA POA POA OOO 


Bourorwwwoss FDP DWN PA AAAAAAAAAAA AAA AAA AA AD 
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CV_RT4: 
O0000038'EF 04 39 " MOVB #ADJSC_PTY_PH4,PTYPE : Indicate type of message 
0148 0 BSBW PARSE _PH4_ADDR ; Parse Phase IV node address 
3€ 50 =E9 BLBC R 3 error, do event setup by parse 
OA COEF 7 EXTZV #TR4$V_ADDR_AREA, - : Get area number of sending node 
50 58 4 7 #TR4$S_ADDR_AREA,R8B,RO 
0088 C4 91 7 CMPB RO RCBSB_HOMEAREA(R4) =; Our area? 
6 12 7 BNEQ 70$ : If not, drop the message 
1 4} 7 INCL R1 3 Skip reserved byte 
14 AS__ 51 5 hUA 7 SUBW3 = RS. a wars, PM2(R5) 3; Save offset to first segment 
5 16 a 3¢ 7 MOVZWL WOESL’PM2+2TRS) .R3 3; Get msg bytes remaining 
2B 5 £8 7 BLBS R B08 3: If odd, packet format error 
53 SF ¢ 7 DIVL #2,R 3; Get number of words 
: egal msg 
6 1 , BEQL ©: 80$ Illegal if EQL 
3: Calculate checksum and check it 
5 1 O 79 MOVL #1,R2 : Init check sum 
P) beg 794 108: ADDW «= (RI) +, R2 ; Calculate checksum via 1's complement 
5 D 795 ADWC #0,R 3; add - needs ‘‘end around carry’ 
F7 F : 79 SOBGTR R3,10$ ; Loop thru all segments 
61 9) B9 79 Pw R2,(R1) 3; Check sum valid ? 
1 2 OBA a BNEQ 80$ 3 If NEQ, then checksum error 
: ? ; Check if any routing update loss, and if so, log an event. 
58 5A A4 ; : § MOVZWL RCBSW_MAX_ADDR(R4),R8 ; Set upper Limit for rtginfo 
b068 : BSBw CHK_ROS4 ; Check for routing update loss 
E : . : BLBC RO,80$ ; Branch if packet format error 
; 4 $ 3; Accept the message as valid. Set up event to process it. 
10 AS 08 9 BAD Move SLEVEC_ACV_AT .WOESB_EVT(RS) 3; Set up event 
50 3 BB) 90$: MOVL #1,R0 3; Process event 
+) ' ; Return true - process event 


VOe-000"™ RC 


70$: L RO ; Ignore message 


1 
1 
2. 
! ; Log a “routing checksum’ event 
1 
1 


8 bos: $106 TPL_LDS, TPL_PRSN -RUCS, .RS i due to "routing update checksum’ 
e 


ADJ~DOWN_EVENT port fatal event 


FCOF = 331 C 
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Routing message received SEP-19 NETACP.SRCJNETDLLTRN.MAR; 1 
: -SBTTL RCV_ART = Area Routing message received 

; RCV_ART = Area Routing message received 

FUNCTIONAL DESCRIPTION: 


Verify the area routing message header and checksum and queue a 
routing update event. 


sc" ic 


INPUTS: R11 CNR address 
R10 CNF address 
R7 ADJ address 
R LPD address 
R WQE address 
R4 RCB pointer 
R1 Ptr to next byte in the message 


ALL others are scratch 


OUTPUTS: R5 Unchanged 
RO True if event to be processed, false if not 


ALL other registers may be clobbered. 


Be « Se Se Ge Be Se Se Se Ge Ge Be Ge Se Se Se Se Se Sse Se Se See 


os 


V_ART: Process an area routing message 


00000038 'EF ove MOVB #ADJSC_PTY AOEA PIPE Indicate type of message 


9 ; 
9 3 Hi BSBW PARSE PH4 App 3; Parse Phase IV node address 
33 50 =«E9 BLBC RO,908 ; Branch if error detected 
2 b6 INCL ; Skip reserved byte 
14 AS §1 ; &@ SUBWS = sR Bi worst, PM2(R5) 3; Save offset to first segment 
53 16 a 3¢ MOVZWL WOQESLPM2+2TRS) RS 3; Get msg bytes remaining 
29 5 E8 BLBS Rs 8s : If odd, packet format error 
53 02 9 DIVL a R 3; Get number of words 
244 Ci BEQL 808 : Illegal msg if EQL 


: Calculate checksum and check it 


Init check sum 


Move = #1, R2 
10$: ADDW (R1)+,R2 Calculate checksum via 1's complement 
R add - needs ‘end around carry" 


ADWC #0, 
SOBGTR R3,10$ Loop thru all segments 
CMPW R2,(R1) Check sum valid ? 

BNEQ 80$ : If NEQ, then checksum error 

: Check if any routing update loss, and if so, log an event. 
MOVZBL RCBSB_MAX_AREA(R4).R8 ; Set upper Limit for rtginfo 
BSBW CHK_ROS4 ; Check for routing update loss 
BLBC RO,80$ ; Branch if packet format error 
: Accept the message as valid. Set up event to process it. 
AovB #LEVSC_RCV_ART ,WOESB_EYT(RS) ; Set up event 

MOVL #71,R0 P 


3; Process event 
; Return true - process event 
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talink control Layer 
Routing message yeceived 


Log a 
bos: 


“routing checksum'’ event 


$LOG TPL_LDS, TPL_PRSN =AUES. RS 
BRW 


ADJ “DOWN ~EVENT 


"SSEP=196¢ 02:99:23 ENETACE. SRCSNEYDLLTRW.man;1 "29° (885 


due to ' routing update checksum'’ 
port fatal event 
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3 : - -SBTTL Check for routing update loss 
3 8 i CHK_RUS4 = Check for routing update loss in Phase IV format messages 
3 8 ; Inputs: 
C1 p ; RS = WOE address 
C1 91 3 R4 = RCB address 
3 38 : R8& = Maximum allowed node/area number in message 
3 3¢ : Outputs: 
C1 3% : RO = True if packet scanned successfully, False if format error 
3 4 3 Event is logged, if necessary 
3 $3 : R1-R3 are destroyed. 
oc 901 CHK_RUS4: 
03CO 8F 6B bcig on8 PUSHR #*M<R6,R7,RB,R9> ; Save registers 
C16 2904 : Compute the highest reachable node in this routing message 
C16 2905 3 to be used to check for routing update loss. Note that 
C16 2906 ; only segments which contain info for nodes higher than 
C16 2907 ; max address are even checked for the highest reachable 
cre 388 : node, as an optimization. 
53 Re cig 910 €LRL R3 ; Preset ‘highest reachable node’ 
59 14 AS C OCI 911 MOVZWL WQESL_PM2(R5).R9 ; Get msg offset to routing info 
59 655 go OCIC ai¢ ADDL RS ; Convert to pointer 4 
57 16 A5 3C OCIF 291 MOVZWL WOESL _PM2+2(R5) .R7 ; Get number of bytes of rtginfo 
57 oe 0C23 2914 50$: SUBL #4,R 3; Account for COUNT & STARTID 
, Le C26 «2915 BLEQ o$ ; Branch if packet format error 
51 89 C 0C28 2916 MOVZWL (R9)+,R1 ; Get number of nodes in segment 
52.89 f C2B 2917 MOVZWL (R9)+,R2 3; Get Starting node number 
56 0s 51 2 C 318 ASHL #1,R1,R6 ; Compute number of bytes of rtginfo 
57 6 3 C 91 SUBL 6,R7 3; Account for cost/hops info 
5 1 C 920 BLSS o$ :; Branch if packet format error 
50 FF A114 9E OC 921 MOVAB -1(R1)CR2],R0 ; Compute highest node in segment 
58 5 D1 OC3C 29 § CMPL R8 3; Within max address? 
2 1A OC3F 29 BGTRU 53$ : If within range, skip scanning segment 
59 6 CO 0C41 2924 ADDL R6,R9 ; Skip past entire segment 
16 11 0C44 2925 BRB 8$ ; Continue with next segment 
7FFF 8F 9 Bl 0C46 29 § 53$: CMPW (RO) +, #°X<7FFF> 3 compere with infinite cost/hops 
A 1A 0QC4B | BGTRU 80$ 3; If GTR, then field is invalid 
13. 0C4D 3 EQL $ 3 Branch if not reachable by partner 
53 D1 OC4F 29 CMPL Re R3 ; Is this the highest reachable node? 
18 C e 930 BLEQU 55 : Branch if not 
53 D C 931 MOVL R2,R3 3 Else. save highest reachable node 
D C57 29 § 55$: INCL R 3: Skip to next node 
EA F C59 29 SOBGTR R1,53$ ; Loop thru all nodes in segment 
7 #O CSC 2934 58S: TSTL R7 3; Any more segments? 
cS 4 $? 935 BGTR 50$ :; If so, continue 
C6 3 $ : If the highest reachable node is greater than our maximum 
te 4 8 ; address, then log a non-fatal event. 
58 53 v1 OC 940 tMPL R3,R8 3; Greater than max address? 
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1A «61B SCO 941 BLEQU 3; Branch if ok 
C 348 ge BAA fe. cal grain) 3; Inc count for this steal 
C 4 LOG nse ; Setup event Logging code 

1E AS at 4 C t2 MOVW wae $4" te DT1(R5) 3 Store partner's highest reachable node 
' c7c 4 BSBW fs VT_INTRAW 3 Log the event 
50 1s C7F v4 GOs: MOVL R ; Packet format is ok 
CO 8F BA ¢ 4 :  POPR mf R7,R8B,R9> 3 Restore registers 
at 
50 D4 OC87 2950 80S CLRL RO : Indicate bad packet format 
fF?) Os C89 2951 BRB 90$ 3 exit 
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ntrol lay 
ddress 


» SBTTL 
PARSE _PH2_ADDR 


PARSE -PH3_ADDR 
PARSE ~PH4~ADDR 


INPUTS: 


OUTPUTS: 


- ENABL 
PARSE _PH2_ ADDR: 

CVTBL 
10$: $L0G 


PARSE _PH3_ADDR: 
PARSE_PH4-ADDR: 


B 8 
er 16-SEP-1984 221: AX/VMS Macro V04-00 P 
~SEOrIS8% Bh:4d:58 FARCVES Bacco Vor roe man;1 oe 


Parse phase II/III/IV address 
- Parse Phase II address f 


ield 
- Parse Phase III address field 
- Parse Phase IV address field 


R LPD address 

R WQE address 

RG RCB address 

R1 Pointer to next field in message (node address) 
RO Scratch 

R8 Node address from message 

R1 Advance passed node address field in message 
RO LBS if successful 


LBC otherwise. In this case an event code is setup 
for the state table processing and the Event Logging 
info are setup in the WQE. 


ALL other regs are unchanged 


LSB 


; Parse Phase II node address field 
; Get partner's node address 
; Br unless field is extended 
3; Get next (final) byte of field 
; Merge with low order bits 2 
; Assume fatal event is ‘format error 
R5) ; Account for extra byte 
; If LSS then msg is too small 
RSN_ADJR,,R5 ; Assume address out of range 
R_PNA 3; Less than max Phase II address ? 
; Out of range RU 
: Continue in common 


NMNWBDaAS ec Awe ee 
Com voo vOoO7oOwD 


; Parse Phase III node address field 
RB ; Parse Phase IV node address field 
"ETY(R4) ,MADJSC_PTY. 


; Get the node address 
AREA ; Are we a level 2 router? 


(R1 

RCB 

20$ 

#TR4SV_ADDR_AREA,- 

#TR4$S_ADDR_AREA,R8,RO 

2 :; If area = 0, allow it 

RO,RCBSB_HOMEAREA(R4) ; Is it in our area? 
. i so, then ok 

#LPDSV_BC ,LPDSW_STS(R6) ,30 : 1f non-BC circuit, then error 

708 ; If Ni. then simply ignore it so that 
; multiple areas can co-exist without 
; interference from other areas 

= DEST ; Extract the node address (from area) 
ehere ADOR iy fH! 


8 CBSW_MAR ; Within bounds? 
30§ : If not, report error 
#1,R0 3; Success 


skip the following check 


+ 

$B 
: so 

4 3; Get the area number 


#TR4SV_ADDR 


71 
(32) 


ered errr eee et 
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VO4e0b0 Parse phhes II/III/1V address ! ee 7 4:94:32 NETACP.S RCIN NETDLLTRN.MAR; 1 ’ (3) 
OE 11 cee ! BRB 508 
ES 12 308: $LOG TPL_LOO,=- : ae ~~, due to ‘‘address out 
CE? 1 TPL “pRSN ADJR 3 
10 AS g¢ 90 OCEF 14 40$: MOVB sLEUSC. LOG ADE: COESB. EvT(R ); tse event record & shutdown adjacency 
0 94 ers 1? CLRB ; Set error flag 
QOOOOO14'EF 58 4 CF i$ 50$: MOVW R8,LEV_W_PNA ; Save the node address 
CFC 18 RSB 
CFD 1 
CFD 0 : 
344 : Drop the message on the floor. 
CFD ‘ 
10 AS 98 90 OCFD 4 70$: MOVB SL EVSC NO _EVT WOESE_EVTIRS? Do —s - éree message 
0 : . | 5 CLRL R ; Signal error detected 
004 $0 5 
DO04 8 -DSABL LSB 


dD 8 | 

& Datalink control Layer 16-SEP-1986 01:21:35 VAX/VMS Macro V04-00 Pa | 

Aston - Parse version nunber fie gr SEb=19 4 3:45:38 NETACP.SRCIJNETDLLTRN.MAR; 1 vat (33) 
~SBTTL PARSE_VERSION = Parse version number field 

PARSE _VERSION = Parse the 3 byte version number field 


Inputs: 


voueb00™ PARSE. 


ms 


4-4-4 -4 4-4-4444 4 4 4 4 SS SS 


= LPO address 
R5 = WQE address 
= RCB address 
R1 = Pointer to next byte in msg (version number) 


Outputs: 


True if Phase IV, else WOE setup to chain to another event 
Ri = pqvenced past version number field 


De ee ee ee el et et et et el et tt et ee 


Wee Oe Se Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Se Se Se Oe Oe 
2 
o 
“ 


De PUPP PVPS Be BS BB BE EB EAI 


4 
0 
4 
: 5 R8 = First 2 bytes of version number (Version & ECO level) 
8 5 NETSGL_INITVER = Saved copy of version number (for event logging) 
+44 ; ALL other registers are preserved. 
D04 6 1 PARSE_VERSION: 
7E 04 : " 3 ¢ CLRL -(SP) ; Allocate 4 bytes of scratch space 
+94 4 4 : Get our version number. This may be one of several values 
D 5 3 eye on whether the circuit has been forced to operate 
+44 4 § > as a certain version type. 
50 1D A6 9A OD06 4 8 MOVZBL LPD$B_ETY(R6),RO ; Get our node type for this circuit 
FF BF 5 91 409 CMPB RO, #ABJ$C_PTY_UNK ; Have we been assigned a node type? 
4 13 OD 060 BEQL 7 3: If not, grop msg on the floor 
6E 00000154°EF4O 3C¢ +) be) MOVZWL PTY_TO_VERSIONCRO],(SP) ; Get the 2 byte version number 
pi $68 : Compare version numbers. If we receive a message from a node 
01 064 ; with a higher version number, then drop the message. e 
0D1 65 ; other node will detect that we are lower version and re-send 
1 4] 3 the correct message. If the version is lower than ours, . 
4 ° ; but we don't recognize or support it, then log ‘version skew’’. 
6E } 91 Ob! 3 MPB (R1), (SP) ; Compare version numbers 
1A 0018 Y BGTRU 70% :; If higher than ours, ignore msg 
1F OQD1D 7 BLSSU 5$ : If equal, then 
01 AE O1A1 91 ODIF ds CMPB = 1(R1), 1(SP) : Compare ECO numbers 
1A 0024 7 BGTRU : If higher than ours, ignore msg 
6E 1 #] $ 74 5$: CMPW (R1), (SP) : Is it our version? 
18 2 OD 75 BNEQ : If not, version skew 
58 3 2B 16 MOVZWL (R1),R8 ; Return version to caller | 
ssi 4 4 1 D 3 7? MOVW (R1)+,NETSGL_INITVER ; Save INIT version (3 bytes) 
"EF 1 D 8 MOVB (R1)+,NETSGL_INITVER+2 
0 oo C 7 MOVL #1,R0 ; Success 
E 4 f O3F 90$ ADDL #4,SP ; Pop scratch space 
D4 RSB 
ge aa 
+ : > Version number is lower than ours, but we can't handle it. Log an event. | 
D4 Be | 
| 


sen" 


10 AS 


10 AS 


= Routin 
PARSE _VERSION 


ERE Ine contre layer se oie MCSEPCTSRS QURUSSE YANNIS SREINEYDLLTRN.MaR;1 9° (35) v5 


D43 7 608: $L0G Pt DS,TPL_PRSN_VRSK,,R5 ; 5 Ran Veraion skew’’ event 

D48 move =f 0$¢_COG_ADE ,wOESB_ EVT CRS gnal “adjacency down event" 
D4F np : Signa ao detected 

D 90$ 

D3 $082 ; 

4 33 i ; Version number is higher than ours. Drop the message on the floor. 

D 95 

D 38 70$: nove EVSC_NO_EVT ,WOESB_ pereneD Do potindy - eree message 

D CLR np Signal error detected 

D59 98 BRB” 90$ 


F 8 
vo4~000" SETSDLUTEVE ="Schedule event transition 'S-SEp=1966 02:49:25 ENETACE.SREINEYDLLTRW.MAR:1 @° (3a) 


4 4 } ~SBTTL SET_DLL_EVT = Schedule event transition 
> 4 ! ; SET_DLL_EVT = Schedule the processing of an event 
D5B 3104 ; Inputs: RO = Event code 
4 : ! $3 R6 = LPD address 
. : } 5 ; Outputs: RO = Status 
Dee 8109 
p58 3110 SET_DLL_EvT:: 
97 D5B O31 PUSHR #*M<RO,R1,R2> 3 save regs 
1 4 Q05D 311 CLRL R1 3; Indicate no addition WQE space needed 
50 01 B8 DSF 311 MOVL #WQESC_SUB_ACP,RO 3; Indicate WQE subtype 
Faye" doe 114 BSBW WQESALCOCATE 3 Allocate WQE (always succeeds!) 
ee DO 0D6 115 MOVL 2 3; Transfer WQE address 
10 AO BE «6F6 0D68 116 CVTILB (SP) +, WOE$B_EVT(RO) : Enter event gode 
51 8E 7D ODd6C 311 MOVQ (SP)+ 3; Recover R1,R2 and cleanup stack 
20 A6 BO OD6F 118 MOVW LPD$W_PTH(R6),- : Enter LPD index 
12 AO p72 3119 WOESW_REQIDT(RO) =: 
B0'AF 9E OD74 3120 MOVAB B“NETSDLL_PRC_WQE,- ; Enter action routine address 
OC AO D77 3121 WOESL~ACTION(RO) ; 
F284" 30 OD79 31 § BSBW WOES INSQUE 3 Queue the WOE 
50 01 90 OD7c 31 10$ MOVB #1, 3: Indicate success 
05 OD7F 3124 RSB 


G 8 
TOLLTRN = Routing & Datalink control Layer 16-SEP-1984 01:21: AX/VMS Macro V04-00 Page N 
your NETSDLL. PRC_WOE - Process work Sueue ele met 7 83:99:33 UNETACE. SREINEYDLL TRN.MARS 1 ° (38) v6 
4 ! § os -SBTTL NETSDLL_PRC_WQE = Process work queue element 
p 8 ; NETSDLL_PRC_WQE = Process Work Queue Element 
p ; FUNCTIONAL DESCRIPTION: 
D 1 : This routine is called by the work queue dispatcher after the WQE is 
D 1 ; dequeued from the work queue. The WQE is deallocated below once it has 
: : ¢ ; been processed. 
4 ! § t INPUTS: R5 WQE address 
: ! 3 ; ALL other registers are scratch. 
: 129 : OUTPUTS: ALL registers are clobbered. 
D 142 :- 
D 128 NETSDLL_PRC_WQE: ; Process DLL WQE event 
00C7 30 OD 144 BSB0 FIND_WQE_ CTX ; Locate CNF, LPD, ADJ blocks 
02 50 F9 D 145 BLBC  RO,KILL_QQE : If LPD no longer exists, skip event 
08 0 OD 196 BSBB PROC_EVT : Process the event 
D 147 KILL_WQE: ; Deallocate WOE if its there 
50 655 00 D 148 MOVL R5,R0 3; Get WQE for deallocation 
03 13 0D8B 3149 BEQL 208 : If EQL then none 
5 Be D8D 3150 CLRL R5 3 Nullify normal pointer to it 
F26E' 30 OD8F 151 BSBW WQESDEALLOCATE 3; Deallocate the WQE 
05 0092 3152 20$: RSB 3; Done 
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YO4-500 PROC EVI = Process an event . misty 95:38 NETACP.SRCIJNETDLLTRN.MAR; 1 ’ (56) 
4 ! : . -SBTTL PROC_EVT = Process an event 
p £ ; PROC_EVT - Process DLL event 
D 1 8 : This routine processes all Data Link Layer events and is state table driven. 
09 159 ; Action routines are called until the null event is detected. Each action 
43 1 3 routine generates a new event, which it returns in R1, and returns with the 
44 } : low bit set in RO only if the indicated state change is to be performed. 
43 1 ? : Inputs: 
p93 3165: R11 = CNR address 
D9 1 $ ; R10 = CNF address 
d9 167 ; R7 = ADJ address 
D9 198 3 = LPD address 
+ 185 3 RS = WQE address 
09 171 : Outputs: 
4 178 : RS = WQE address 
43 Ve : ALL other registers are clobbered 
D9 159 PROC_EVT: ; Process all DLL events 
Q000000C 'EF 2$ DO 0D9 178 MOVL RG-LEV_L_LPD 3; Save the LPD pointer 
00000010°EF 4 DIA 317 MOVL R7,LEV_L_ADJ 3; Save the ADJ pointer 
00000004 ‘EF SA D a ! ? MOVQ r16,LE0_G_CRI ; Save the CRI CNF and CNR ptrs 
of ! § 3 Find appropriate state table entry 
51 10 A5 9A ODAB 3184 MOVZBL WQESB_EVT(RS).RI ; Get the event code 
53 26A6 9A ODA 185 5$: MOVZBL LPDS$B-STI(R6),R3 : Get LPD internal state 
51 24 D1 0DBO 31 : CMPL “#LEVSC_MAX_EVT,R1 : Is event within range ? 
1f ODB 1 BLSS : If LSSU then bug exists 
54 3} ig C5 0DB 188 MULL S“*#LEVSC_STATES,R1,.R4 ; Bias for current event 
4 § 0 ODB9 3189 ADDL oR 3; Add current state offset 
53 00000000°EF 44 i pec 3190 MOVAW LEVSAW_STA_TABCR4],R3 ; Address state table entry 
F239" pc4 3191 BSBW NETSJNZ_CO : Initialize journalling co-routine 
DC? 136 : (Clobbers RO; stack has been changed) 
05 22 8 pc? 319 BLBC RO,14$ ; If LBC journalling is inactive 
004 0 QODCA 3194 BSBW FILL. JNL 3; Fill the record 
9E 16 ODCD 3195 JSB a(sPy+ 3 Store the journal record 
51 4 Di ODCF 136 14$ CMPL S“#LEVSC_EXIT,R1 3; Are we done ? 
9 13 ODD i BEQL 18$ 3; If so, exit processing 
vat : 
Dp4 9 : Dispatch to the action routine with the following: 
DD4 : : INPUTS: R11 CRI CNR ptr 
DD4 ; R10 CRI CNF ptr 
DD4 4 : R7 ADJ address 
DD4 5 ; g LPD address 
DD4 § 3 R WQE address 
+41 3 R4 RCB address 
DD4 § + ON RETURN: RS Unchanged 
DD4 10 3 R1 Next event to be processed 


ng & Datalink control leet . 1 mh 9 94:43:32 yAneyes Macro V04-00 Page (3, 


srl abe 


mee 
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_EVT = Process an event =SEP=1 NETACP.SRCIJNETOLLTRN.MAR; 1 
DDS 1 ; RO Low bit set if state change is permitted, 
+41 ! : Low bit clear to avoid state change 
+41 13 $ ALL other regs may be clobbered 
6 F ODD4 1 PUSHAB (R3)¢ : Save table address 
6 DD 1 MOVZBL (R3),R3 3; Get action routine index 
50 00 Ofte DO ODD 18 MOVL LEV AL_ACTTABCR3].RO =: Get action routine address 
54 0 "EF 9 DEI 1 MOVL NETSGL_PTR_VCB,R4 ; Get RCB pointer 
9 DE8 0 JSB (RO) 3 Dispatch 
BED DEA 1 POPL R3 ; Get next state, cleanup stack 
56 Soooeeec "sr 9 DED g MOVL 5 V.L_LPD,R6 3; Get LPD address 
DF4 BEQL $ 3; If EQL then its been deallocated 
04 5 org 4 BLBC RO,15$ ; Avoid state change if LBC 
26 ab 6 OF 5 MOVE  (R$),LPD$B_STI(R6) ; Change state 
37 00000010'EF p DFD § 15$: MOVL LEV_L_ADJ,R 3; Recover ADJ address 
eeeeeeadl D QE04 MOVa bEVO_CRI R10 3; Recover CRI context 
ie +4 8 BEB 3 Process next event 
F614 3 EOD 0 18$: BSBW COND_DEAL_LPD :; Clean-up if necessary 
0 519 1 20$: RSB 
ett ; 30$: BUG_CHECK NETNOSTATE,FATAL ; Signal the bug 
SHH 
€1 § FILL_JNL: 
+} C 8F 930 OE15 MOV #*X<CC>,(R1)+ : Enter journal record type 
1 A6 «90 «—(0E19 8 MOVB _—LPD$B_ST1(R6),(R1)+ : Current state 
00000: 00°EF 9F O0E1 9 PUSHAB LEVSAQ tA TAB ; Base of state table 
61 5 C3 OE 40 SUBL3 (SP)+,R3,(R1) 3 State table offset 
3 CA OE 41 CL #xie  (RI)+ 3 prepay only base offset of event 
1 BO OE2A ¢g MOV (R3), (R1)+ 3; Enter table contents 
1 8 A B E2D 4 MOVW LPDSW_PTH(R6),(R1)+ 3; Enter path ID 
1 A 3 E ! 64 MOVW LPDSW_STS(R6) ,(R1)+ ; Enter current status 
1 4 A6 E 45 MOVB LPDSB-XMTFLG(R6), (R1)+ 3; Enter xmit flags 
1 BA E39 $$ MOVB LPDSB_ASTCNT(R6),(R1)* |; Enter asynch activity count 
+ “4 A 8 E35D 4 Vu AD J$W_PNA(R7) (R1)+ 3; Enter the partner's address 
1 A? 8 E41 48 Vw  ADJ$WTBUFSIZ(R7),(R1)+ |; Enter partner's block size 
81 25 Ab 3 Et $3 nove LPDSB_PVCFLG(R6),(R1)+ ; Enter PVC startup flags 
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Wosebb0 FIND “porch - Find context for's new WQ "$28 ets 7 83:9 :33 NETACP.SRCINETDLLTRN.MAR; 1 Sal (33) 
a -SBTTL FIND_WQE_CTX = Find context for a new WOE 
s FIND WQE_CTX = Find CNF, LPD and ADJ for a new WQE to be processed 


; This routine is called to locate the CNF, LPD and ADJ corresponding to a 
: WQE to be processed. 


; Inputs: 
; RS = WQE address 
: Outputs: 


RO = True if (PD found, else false 

R8 is destroyed. 

IND WOE _CTX: 

PUSHL #0 ; Scratch for holding LPD address 
MOVZWL WQESW_REQIDT(RS),R8 ; Get LPD index 


: If this is the local LPD, then skip looking up the CNF block, 
; since there is none. 


CMPB «RB, HLPDSC_LOC_INX : Local LPD index 
BEQL 50$ : If so, handle " specially 
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: Find the LPD and CRI 


w 
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Jor8 bsBy NETSGET_LPD_CRI ; Find LPD and CRI for this index 
25 5 E9 BLBC RO,90$ ; Branch if not found 
6— 56 MOVL R6, (SP) ; Save LPD address 


: Find the ADJ. If the ADJ index in the WOE is zero, then use 
3 the LPD index so that the static ADJ block is used. 


NOUS WN OOO NAOUS Wil — 


SNA AA AAA MMIII MUI BB BELLE 


) ns Or 4 pert OR AE AEE 8 8 at ty ie et RR PRP OS Ae TNS A 


30 
dO 
58 20a5 3 MOVZ2WL WQESW_ADJ_INX(R5),R8 =; Is ADJ index 0? 
98 1 BEQL 3; Branch if $9 
1E5F 5} BSBW NETSF IND_ADJ 3 Locate ADJ b 
: ene get LPD corresponding to ADJ 
16 3 r? pac 80 90$ 3 went away, skip event 
20 aS $8 7 10$: MOVZBW LPOSB_PTH =f eR ) ,WOESW_ ADJ g MECRS) Set ADJ index 
58 A f ? MOVZWL WQESW-ADJ~ INX(R5),RB 3: Get ADJ i ndex 
1E4E BSBW NETSFIND "no 3 Locate ADJ block (returns 0 if none) 
§ 3 and get LPD corresponding to ADJ 
6E 6 ODI 20$: CMPL 6 (SP) 3 vas osu _LPD different than WQE LPD? 
Dp 1 78 4 BNEQ § : If so, bugcheck 
50 1 OD 7 5 MOVL #1,R0 3; Success 
5E 4 f § 90$: ADOL #45SP ; Pop scratch storage 
? i RSB 


seth" 


at ie 


16 


tplink control Layer, IgcSEpcIRRE BL21:55 YA 


; Special handing for local LPD 


508: NETSEIND_LPD 


BSBW 
BLBS 


; 30S: BUG_CHECK NETNOSTATE,FATAL 


P.SREINEYDLLTRN.MAR: 1 °° (89) 


3 Find fhe LPO via index in R8& 
3 Exit 

; Else, bugcheck 

; Signal the bug 
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Wiaebb0 Simple transit on rout ines ° g- seen 18 4 94:94:32 NETACP. SRCINETDLLTRN.MAR: 1 ni (83) 


-SBTTL Simple transition routines 
Various ‘‘simple’’ data Link state transition action routines. 


#LEVSC_EXIT,R1 : Signal last event 
#1,R0 


E 
ESE , 
ERE 
E ; ACT BUG = Bugcheck faiiure 
ESE ; ACT_NYI - Moi-yet-impiemented error 
ESE ; ACT_NOP - No-operation 
ESE ; ACT_IRP_EVT <= 1/0 Request Packet returned to ACP 
ESE 3; ACT_LOG_NFE = Log event recor 
ESE 3; ACT_LOG_CDE = Log event record & shutdown circuit 
; E 3; ACT_LOG_ADE = Log event record & shutdown adjacency 
E E : INPUTS: R11 CRI CNR ptr 
E8E 3 R10 RI CNF ptr 
ESE 3 of LPD address 
ESE 3 R WQE address 
OF ; 3 RG RCB address 
EBE > OUTPUTS: RS Unchanged 
ESE ; R1 Next event to be processed 
E8E 3 RO Low bit set if state change is permitted, 
43 3 Low bit clear to avoid state change 
44: : ALL other regs may be clobbered 
E8E ACT_BUG: 
3: ACT WY! BUG_CHECK NETNOSTATE,FATAL ; Signal the bug 
E9 ~"""BUG_CHECK NETNOSTATE,FATAL ; Signal the bug 
OE ACT_EXIT: 3; Exit state table processing 
38 MOVL 
e9 MOVB ; Allow state transition 
343 RSB 
E9D ACT_NOP: ; Nop action routine 
E9D MOVL #LEVSC_NO_EVT,R1 ; Signal last event 
cay neve #1,R0 3; Allow state transition 


ACT_LOG_CDE 


: Log event record & shutdown circuit 
BSBW NETSEVT_INTRAW Call 


No new events 
Allow state change 


MOVE = ALE C_RO_EVT,R1 
MOVE #1, RO 


SIA AAPA AAA AA MAA AI Ee BS BS BS BS BS AAA AAA AA AAPOR — 
ARVO WOME WI ODO NOMEN O O09 NOME WI O O00 NOME WII O DOD NOU 


ww vw vw 
o— o— o-— 
nn 
= 
omu oo oo 
——O —oO = 
ooow ooo ows 
WMmooo Moo Moo 
OOOOOSOOSOOOOSOSOSOOOOOOOOOSS 
mnmmn 
>>> 
NEES 


E : internal raw event logger 
A MOVL #LEVS$C_CIN_DOWN,R1 ; Generate circuit down even 
EAA MOVB #1,R0 3; Allow state change 
a se 
EAE ACT_LOG_ADE: 3 Log event record & shutdown adjacency 
FIGE® 3 EAS BSBW NETSEVT_INTRAW : Call internal raw event Logger 
3} ie EB MOVL avey C_ADJ_DOWN,R1 3 Generate circuit down even 
0 EB4 MOVE #1,R0 ; Allow state change 
0 +14 RSB 
EBs ACT_LOG_NFE: Log eyont record 
+4 BSBW NETSEVT_INTRAW Call internal raw event logger 
43] 
EC 


R6 is the only register preserved. 
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VO4-000 ACT RCV. STR = Received start message ~$Eb= 1386 349538 ENETACP. SREINEYDLLTRN.MAR: 1 _ (3%) 
A = -SBTTL ACT_RCV_STR = Received start message 
8 : ACT_RCV_2STR = Second start message received 
? : ACT_RCV_STR = Start message received 
: Inputs: R11 = CRI CNR address 
3 R10 = CRI CNF address 
: R7 = ADJ address 
: R6 = LPD address 
3 RS = WQE address 
: R4 = RCB address 
: Outputs: RO = True if state change requested 
; Ri = Next event to be processed 
A 


CT_RCV_2STR: ; Second start msg received 
B1SB #LPDSM_XMT_STRi- 3; Retransmit everything 
LPDSM_XMT_VRF != 
LPDSM XMT_IDLE,- 
LPD$B_RMTFLG(R6S 


24 AG ODE 
ACT_RCV_STR: 
If the message we just received doesn't match the type 


; that we sent, then we need to retransmit a start message 
3 again, only this time in the right Phase. 


52 OOOO014A'EF 9E MOVAB PTY_TO_PHASE,R2 3; Get address of phase conversion table 
50 1D A6 9A MOVZBL LPDSB_ETY(R65 RO : Get our node type 
51 Q0000038'EF 9A MOVZBL Ash4; R1 ; Get his node type (from msg) 
6240 6241 91 CMPB ss (R2) (R19, (R2)CROI ; Does msg ‘phase’ match ours? 
25. 13 BEQL 5$ : If same phase, process message 
1E 314 BGTR 4$ : If higher phase, ignore msg. 
3; Else, restart init. sequence by ... 
SETBIT LPDSV_XMT_STR,- ; Retransmit start msg (the start 
LPDSB-XMTFLG(R6) 3 msg we already sent was wrong) 
; The message type we received doesn't match what we sent. 
: If this circuit has been forced into a certain type by 
3; the network manager, then ignore the message we just 
3 received because it doesn't match what we want. 
; Otherwise, process the message (storing the correct type), 
> and we will Later send the correct start message because 
3 we were just marked for ‘'start transmit’ above. 
57 oD PUSHL RT ; Save ADJ address 
SGETFLD cri, l,xpt 3; Were we forced into a specific type? 
7 8ED POPL R7 3; Restore ADJ address 
05 50 3 BLBS RO,4$ 3; If so, then ignore the message 
0089 BSBW = ADAPT_TO_PARTNER ; Adapt to partner's node type 
11 BRB 5$ ; Process the message now 
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WWI NAPPI | = = BQOOOOOOQOOOOO0000000 
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; Ignore the message 
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0 EFF 34 $: CLRB R 3 No state ch 
o0se 3 FOV 3435 ghee is ei Mah 
: 2 r ; Process message. Dispatch on message type. 
F04 3439 5S: $DISPATCH PTYPE,<- 3 Dispatch t 
F04 440 <ADJSC_PTY_PH2,7$>,-  : Phase fl ee Pe 
FOG 344 <ADJSC_PTY_PHS,8$>> ; Phase III routing 
19 #11 ati 138 BRB 10$ 3; Else, no special processing here 
F14 3444 ; Partner is a Phase II node. Set the number of NOP messages t 
i? seg : send for circuit acceptance test. icon 
00 90 OF14 3447 7S: MOVB  #TR2C_NUM_NOP,- ; Setup # of NOP msgs to send 
1A Ag OF ig 448 FPDRBCTS TENT CAG) 3 to test the circurt : 
1 11 OFA th BRB 0$ 
FIA 3451 ; Partner is a Phase III routing node. Determine if his receive 
18 re : buffer size is adequate to receive a maximum sized routing message. 
50 SA AG 3C OFIA 3454 8$: MOVZWL RCBSW_MAX_ADDR(R4),RO  ; Get max node address 
50 02 C4 OF Te 455 MULL #NETSC_TROTL_CEL,RO ; Cell size for node in 
5005 co OFST 8489 ADDL #NETSC_TRCTL_OVR.RO —:- ROMTIAD Meseoe overhead 
‘ 3; Routing message overhea 
50 0000018'EF 81 OF24 3458 CAPU LEV. BLKSIZE,RO S Con partner receive rts neg? 
1 OF : $23 BLSSU $ ; If LSSU buffer is too smal 
o D 3461 : Setup number of test messages to send for circuit acceptance test 
et re ; for all nodes except Phase II nodes. 
03 90 OF D 3464 10$:  MOVB #TR3C_NUM_TST,- ; Setup number of test messages 
1A Ab ref 469 LPDSB-TSTENT (R6) 
OF 1 169 : Store partner's block size, set flags to schedule initialization 
OF : re 3 message transmission. 
00CO 8F eocceets*er 2 OF : fh 208: MPN LEY.WLBLKSIZE .ANETSC_MINBUF S12 3 it least pe big as minimum? 
3 en no 
06 A? 00000018'EF BS F3C 476 MOVW LEV_W_BLKSIZE ,ADJSW Pye StZ(A7) ; Setup partner's buff size 
04 A? 00000014'EF ° F44 347 MOVW LEV~W"PNA,ADJ$W_PNATR7) 3; Setup partner's node address 
50 00000020'EF § F4 474 MOVZWL 5y-W_HELLO.RO ; Get partner's hello timer 
4 1 F5 475 BNEQ $ : If not specified (Phase III), 
50 18 A6 3C OFS 476 MOVZWL LPDSW_INT TLK(R6) RO ; then use our own hello timer 
30 9¢ C4 ee? 477 22$: MULL #TR4C_TSMOLT RO 3 Rultipt by hello/listen factor 
08 A 4 F f 478 MOVW RO, ADJ$W_INT_LSN(R7) : Set l sten interval 
OA A7?__ 50 8 F6 47 MOVW RO, ADJ$SW_TIM_LSN(R7) 3 Start Listen timer 
01 A? 00000038'EF 0 +e: r 9 ONE aecn ortbees _PTYPE(R7) ; Setup partner's node type 
F6C 34 ; <ADISC_ETY PHS 258. ; If Phase III router, 
F6C 34 <ADJSC_PTY_PH4 3325 ; Or Phase IV level 1 router, 
tie FgC 4 4 ca <A JSC“PTY“AREA, 25$>> : Or Phase IV level 2 router, 
F b 4 § $3: SETBIT ADJSV_RTG,ADJ$B8_STS(R7) 3 then set RIG flag 
24 as 0 34° EF 88 OF 487 288:  BISB KRTFLG.LPOSB XMTFLG(RS) i Setup xnit flags 
4*EF = @ F 4 3 BBS #LPDSV_XMT_VRF .XMTFLG, 50S ; Br if verification msg needed 
F 4 CLRBIT LPOSY RAT ORF, PDSB_XMTFLG(R6) ; Clear flag to send the msg 
50 01 90 OF9 490 30$: MOVB #1,R ; Allow state change 


B 9 
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Vv ACT_RCV_STR = Received start message “SEP=1984 02:19:25 (CNETACP.SRCINETDLLTRN.MAR;1 (39) 
ot 491 
51 00 00 OF9A 136 40$: MOVL S*#LEVSC_NO_EVT,R1 ; No further events 
05 OF9D 349 RSB 
F9E 3494 
F9E 3495 ; 
foe 138 3; Log “invalid partner block size’’ event 
OF oe 498 50s: $L0G TPL_IOF , TPL_PRSN_ADJB,,R5 ; Buffer size too small 
51 23 DO OFA6 3499 MOVL #LEVS$C_LOG_CDE,RT 3 Signal "circuit down event’ 
50 01 DO OFA9 3500 MOVL #1,R0 3; Make state change 
05 OFAC 501 RSB 
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-SBTTL ADAPT_TO_PARTNER = Adapt to partner's node type 
ADAPT_TO_PARTNER = Adapt to partner's node type 
This routine is called when our partner is on gl a older Routing 
version than we are. The function is to figure out what version we want 


to speak, based on his version, and store it in the LPD block so that 
we only speak the older version from now on. 


alink control la 


TOLLTRN = Routing & 
VOo-000 ADAPT. TOPAR a 


Inputs: 


R7 = ADJ address 

R6 = LPD address 

R4 = RCB address 

PTYPE = Partner node type (based on Start message) 
LPDSB_ETY = Our node type 


Outputs: 
LPDSB_ETY = Our new adapted node type for this circuit 
RO-R2 are destroyed. 


APT_TO_PARTNER: 
MOVZBL PTYPE,R1 
MOVZBL_LPD$B_ETY(R6) ,RO 
SDISPATCH RO,<- 

<ADJ$C_PTY_PH4N, 20$>,- 


pee Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se 


51 00000038' ; Get partner node type 
50 1D ; Get our node type 

; If we are an endnode, 

a. ; then drop to his version only as 

<ADJSC_PTY_PH3N,20$>> ; an endnode 


We are a router. Make sure that we drop to his version, 
BUT as a router of that version, and not an endnode. 
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3 

§ MOVZBL ay! TO_PHASECR1I Re : Get his ‘‘phase'’ (i. I11l or IV) 
8 < RSS : Drop to Phase II 
; <§ 13$ : 
' ; 
§ 

4 

5 
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; 
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52  OO00014A'EF41 9A 
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FAD 
if 
a 
FB8 
FC6 
FC6 
FC6 
FC6 
FC6 
eee SDISPATCH Dispatch on phase 
FCE >> Drop to Phase III router 
1F i 4 BRB 70$ ; ALL other values illegal 
51 0 90 OFD 42 13$: MOVB #ADJSC_PTY_PH3,R1 ; Act as a Phase III router 
1 11 FOB & BRB 50$ 
FDD 4 
FDD 4 H 
FDD 4 ; We are an endnode. Make sure that we drop to his version, 
44 ? ; BUT as an endnode of that version, and not a router. 
52 O000014A°EF41 9A OFD 49 208: MOVZBL PTY TO_PHASECR1),R2 ; Get his ‘phase’ (II, III or Iv) 
FE SDISPATCH R2,<= ; Dispatch on phase # 
FE , §s>.- : Phase 
FE < $>> ; Phase III endnode 
08 11 444 BRB 70 ; ALL other values illegal 
51 O01 90 ee 238: MOVB #ADJSC_PTY_PH3N,R1 ; Act as a Phase III endnode 
1D A651 + FF 50$: MOVB R1,LPDSB_ETY(R6) ; Set our new node type 
0 4a : RSB 


mio TRN 


ADAPT T0e PA % 


FF 
FF 
FF 
FF 
FF? : 
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R = Adapt to part ner’ $s no 
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} Cannot adapt to his version 


708: BUG_CHECK NETNOSTATE,FATAL 
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+ Ne TRN = Routi 
Vv ACT_RCV SEP- NETACP.SRCIJNETDLLTRN.MAR; 1 (41) 


eceived ver 
-SBTTL ACT_RCV_VRF = Received verification message 
| 
| 


; ACT_RCV_VRF = React to received verification message 


Inputs: R11 = CRI CNR address 
R10 = CRI CNF address 
R7 = ADJ address 
Re = LPO address 
RS = WQE address 
RO 
R1 
6 


Jee Se Oe Se Oe Oe Oe Oe Oe Be te ee 


NN *@2 2 OO ODDO WDWDDWOWO@OOWOVTOw 


Outputs: = True if state change requested 
= Next event to be processed 
R6 is the only register preserved. 
CT_RCV_VRF : 
; Is phase of verification message the same as that of the Init msg? 
58 04 A7 3 MOVZWL _ADJ$W_PNA(R7) RB ; Get partner's address 
4 $LOG TPL_ISF,TPL_PRSN_UXPK,,R5 ; Assume phase change 
02 O1A7 91 10 CMPB ADJSB_PTYPE(R7) ,MADJSC_PTY_PH2 ; Phase II message expected? 
0c 12 10 BNEQ ; Branch if not 
02 OO0000038'EF 91 CMPB PTYPE ,#ADJSC_PTY_PH2 ; Phase II message? 
1D 13 BEQL 10$ 3; Ok if so 
4 3) 4$: BRW 30$ ; Else phase change - log it 
02 00000038'EF 1 5$: CMPB PTYPE ,#ADJSC_PTY_PH2 ; Phase II message? 
F4 «13 BEQL 4 ; If so, phase change - ‘og it 


; Did the operator change the adjacent node's address? 

$L06 TPL_IOF,TPL_PRSN_ADJC,,R5 ; Assume address change 

CMPW Ro, CEV_W_PNA ; Is the address the same as it was? 
4% ; If not the same, log the event 


If the remote node is a Phase III router, then REQUIRE that 


00000014 "EF 28 B 
E 1 


; a non-null password has been specified on the remote node, 

: and that it matches the receive password specified on this node. 
: This is intended to prevent accidental ‘‘cost/hops leakage 

; i.e. address merging) between two different areas if they 

3; =6are ace tdontatly connected between 1 or more Phase II1 routers. 
3 The recommendation to customers is that they use passwords 

3 sentasneng the area number so that Phase II] node can't be 

: accidentally connected to another area. 

; This check is enty done if we are in a hierarchical network, 

; which is assumed if our homearea is not ‘"’. 


RB RRSSANANSsor Se 


BEWOM O NIWA WII B RINININO OO £9 


me aad a a a a a tn tt tt tl 


0c80 8F 8B 10$:  PUSHR #*M<R7,R10,R11> ; Save registers 
3 ps CLRL ; Preset “exact tt flag = false 
01 0088 gk 1 CMPB RCBSB_HOMEAREA(R4),#1 ; Is our area anything but ‘1’? 
A 13 BEQL 3; Branch if not 
01 A7 91 4 CMPB nytt PTYPE(R7) ,- : Is adjacent node Phase I11 router? 
0 4 #ADJSC_PTY_PH3 
4 is 4 BNEQ : rene if not 
53 s § 4 MOVL #1,R3 ; Require exact password match 


F 9 
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vba ACT RCV. ORF - Received seriticetion mess ety 83:95:38 NETACP.SRCINETDLLTRN.MAR; 1 . (41) 
8 3 49 PUSHR #*M<R3> 3; Save flag 
D 48 CMPCS §= #0, (SP) ,#0,- ; Check if remote node gave 
£98 $e .er F LEV_Q PSwdESC,- : null password (RSX sends 8 bytes 
BFF 4 aLe.9 PSWDESC +4 ; of 0, rather than 0 byte string) 
98 Fy 9 POPR #*M<R3S ; Restore flag - use POPR, saving PSL 
D 2 8 NEQ > If null passvord 
LOG TPL_ISF,TPL_PRSN_VREQ,,R5 ; Log "verification req. from PH3 node" 
18 AS) 4 6 CLRL WOE SL _EVL PRI (RST : Don't print any packet header either 
64 «11 + BRB 29 ; log event and bring down circuit 
r If the circuit has specified thes verification is required 
Pr $ for all remote nodes over this circuit, then require verification. 
A 11$: $GETFLD cri,v,ver : Is verification required ? 
7 ASSUME NMASC{CIRVE_ENA EQ 0 
77 ASSUME wast CIRVE_DIS €Q 
49 58 «£8 77 BLBS R8,208 : If disabled (or not set), skip it 


; Require match only if RPA set 


ae 


OOD NAME OS OD NA NEW OO ODNAUE WN OOONOULSW DBD 


: Verification is required. Does the receive password match? 
3 If no node database entry is found, or if the passwords don't 
; «match, then reject the connection. 


12$: MOVL NETSGL_CNR_NDI,R11 


Set the root pointer 
7 LEV y : 


Get node address 
Find the matching NDI 


WEEE 


NA, 

EF7S° SB NE TSNB1_BY ADD 
OA 50 BLBS) =—s- RO, 158 If LBS then foun is 

$L0G TOL VER.» RS due to ‘node not in database 

3%60—Cos111 BRB 29 Log the event and bring Line down 
15$: SGETFLD sh ; rpa Get the receive password 

03 33 4: BLBS R3,18$ If exact match not required, 
1850 =«OC€ BLBC RO,20$ skip check 


and no password specified 
(else, try match even with null RPA) 
18$: $LOG TPL_VFR,,,R5 Assume password mismatch 
CMPCS §=R7, TRB) .#0,- 
LEV_Q PSWDESC 


- Does it match ? 
@LEV_G_PSWDESC+4 


AOOUMMAMUIUIVIV 


12 BNEQ If NEQ no - verification failure 
C80 8F BA 20S: POPR #*M<R7,R10,R11> Restore registers é 
1 A OD 66 MOVL STALEVEC_RCV_ WF RI Indicate ‘valid verification’ 
0 1 66 MOVB #1,R Allow state change 
0 +t) RSB 
0c80 8F BA $66 298: POPR #*M<R7,R10,R11> ; Restore registers 
3; and log verification failure 


68 ; 
6 ‘ ; Log verification failure and bring the Line down 


a ee a a td ed td ds 8 a a ts a tt 


51 33 D 671 $0$:  MOVL #LEVSC_LOG_CDE.RI : Switch to circuit down event 
0 1 4 1h) MOVL #1,R0 ; Make state change 
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~SBTTL ACT_RCV_RHEL = Received Router Hello message 


+ 
; ACT_RCV_RHEL = Router Hello message received 
: Inputs: R11 = CRI CNR address 


R10 = CRI CNF address 
R7 = ADJ address 
RO = LPD address 
RS = WQE address 


; Outputs: RO = True if state change requested 


R1 = Next event to be processed 
R6 is the only register preserved. 


T_RCV_RHEL: 


: Check that buffer size is reasonable 


tmpw LEV_W_BLKSIZE ,#NETSC_MINBUF SIZ ; At least as big as minimum? 
BGEQ 10$ ; If LSSU then no 

$L0G TPL_IOF , TPL_PRSN_ADJB, ,R5 ; Buffer size too small 

BRW 70$ ; Log the event, bring adj down 
: Check that partner's node type hasn't changed 


{pe PTYPE ,ADJ$B_PTYPE(R7) 
$LOG § TPL_LDS, TPL_PRSN_UXPK, ,R5 
BRW 70$ 


Node type changed? 
Branch if ok 

Unexpected message 

Log the event, bring adj down 


: Store partner's block size, router priority and Listen timer 
; parsed from message. 


MOVW LEV_W_BLKSIZE,ADJ$W_BUFS 


4 1Z(R7) ; Setup partner's buff size 
LEV_B_PRIORITY,ADJ$B_BCPRI(R7) 


MOVB 3; Set router priority 

MOVZWL LEV_W_HELLO,RO ; Get partner's hello timer 

MULL #TREC aM AULT ,RO 3 ust rely by hello/Llisten factor 
MOV RO. ADJ W_INT_LSN(R7) : Set Listen interval 

MOVW RO, ADJSW_TIM_LSN(R7) ; Start Listen timer 


: If this router buffer size is less than the current ‘minimum’, 
;  =6tthen we want to update the main ADJ$W_BUFSIZ for the BC, so that 
3 it always contains the minimum buffer size of all BRAs on the NI. 


MOVZBL LPD$B_PTH_INX(R6),RO : Get LPD index 
MOVL ancesc PTR ADJ(R4SCROJ RO : Get main ADJ for BC 
CMPW «© ADJ $W_BUFSTZ(R7) ,ADJ$W_BUFSIZ(ROS ; Is bufsiz less than minimum? 


BGEQU : Branch if not 
MOVW ADJ$W_BUFSIZ(R7),ADJ$W_BUFSIZ(ROS ; If so, store the minimum 


: If we are an endncde, then gtnoly remember this router as being 
; our “designated router’’, and mark the BRA up. 


$DISPATCH Lose ETY(R6) , TYPE=B, <= : If we are an endnode, 
<ADJSC_PTY_PH Nogte> 6 
<ADJSC“PTY"PH3N,07$>> 
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0 TRN A 


<—. 


PAAAOUMIUIINE S&S § 


2c 
orc 


298 
§ 27$: BSS coosey RUN, ADJ$B_STS(R7) ,26$ 


AUP... 
BSBW NETSEVT INTRAW 
268: MOVW WOESW ABJ_INX(RS) ,LPDSW_DRT(R6) 
BSBW YPDATE ALC 


Set into RUN state 

Set ‘‘adjacency up’ event 

Log the event record 

Store ADJ index of DRT 

Update output path if changed 
Exit with success 


WODWOnr»> 


: See if two-way communication has been reached with the remote 
3 perener Sy coven tag to see if our node address appears in his 


Pp 


eral tahtal abtal t on at ot ot ant ot ae oe kee 


Build new NI router List for our Router Hello message 


s still waiting for two-way communication to be established, 
then cause a Router Hello message to be sent in 1 second, so 
that elections are resolved quickly on the NI. 


éspuSséiB ILp RTR_LIST : Re-build NI router List 
BLBS 0,488 


: f there oe least one router in the election List which 


11 
11 
11 4 
is i 
He i787 
11 § 
He ans 
1 § ; 6elect st. 
5 16 A 3 11 4 MOVZWL WOESL_PHZ+2(R5) R2 ; Get number of bytes in List 
14 A 116A 5 MOVZWL WOE S| “PR (R5) RS : Get offset to List 
53 ; ‘ 1 § pont 8 Pp : Get address of List 
OOO4O0AA 8F § D1 «117 8 30$: CMPL ths genes suk Peres ; Standard Phase IV prefix? 
12 117A BNEQ : If not, packet format error 
OE AS =OO4 A Bi 117¢ ¥) CMPW 4(R3) ,RCBSW_ADDR(R4) ; Our address? 
Ba 1181 1 BEQL 42$ 3; Branch if so 
8 07 C2 1183 § 35$: SUBL #7,R 3 Skip entry in List 
, 33 5 i" $ 4 40$ TSit 4a Any bytes left? 
ce 16 1188 $755 GTR RSs ghee 
1180 F3$ ; Our node address is not in his list. If this adjacency 
118D P38 ; was already up, the bring it down (since it represents 
1180 375 ; a change in his status). If we are waiting for 2-way 
1 4 760 ; commun cation, then continue to wait. 
01 €1 #1180 376 Bc #ADJ$V_RUN,- : If not in RUN state, 
23 67 H re8 ADJ$B_STS(R7) ,45$ - then keep waiting 
1191 3764 $LOG TPL_LOS,TPL_PRSN_DROP,,.RS ; Log ‘dropped by adjacent node’ 
18 AS 4 1199 3765 CLRL WOQESL_EVL_PRT(RSY ; Don't print any packet header either 
0045 1 1136 £06 BRw 70$ ; Bring down adjacency 
OO2F 31 i: 68 69S: BRwW 60$ ; Report packet format error 
11A : 2-way communication has been established to the partner node. 
11A ; Mark the broadcast router adjacency in run state and log the 
174 ; adjacency up. 
01 €2 1A 42$:  ®8BSS  #ADJ$V_RUN,- ; Set into RUN state 
OE 67 11A ADJ$B_STS(R7),45$ : Skip if already in run state 
11A6 $LOG TPL_AUP,,.R : Set ‘‘adjacency up’’ event 
EEGF* 30 1146 BSBW «= NETSEVT INTRAW : Log the event record 
EE4C* 30 138) BSBW UPDATE_ALL : Force routing msgs to be sent 
11B4 
11B4 
11B4 
11B4 
11B4 
11B4 
11B4 
11B4 
1187 


PLA AA. AA. AAA NAN. AA. A.A HANIA 


SSNS 


De oe > Pe 


DONAOULS WN 0 OONAUS WIN OO 
= 
wa 
Cad 


088 EB 


; Branch if election stabilized 
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16 A6 «6001S 118A 48s MOVW #1,LPDSW_TIM_TLK(R6) ; Make talker fire in 1 sec. 
11Be 7 ; 3 If we have just initialized the circuit (‘waiting for ballots’), 
118 7 3 hen wait to resolve the quect on after we've had time to hear 
11BE 4 3 rom everyone. The election timer will eventually resolve the 
1i8e 798 : election in this case. 
OF €0 118 7 $ 6Bs #LPOSV_ELECT 148 = :; If we are waiting for ballots, 
07 22 A6 a: a LPDSW_STS(R6), o$ 3; then wait for timer to fire 
11¢ 535 ; Store designated router address in LPD. If we are the 
11¢ 9 ; designated router, then NETDRIVER will send our Router Hello 
aE: 3 messages to ‘‘all endnodes'' as well as ‘‘all routers’’. 
105A 30 11C¢ j 6sBw ELECT_ROUTER ; Elect a designated router 
2C A6 «6551 =BO C116 04 MOVW R1,LPBSW_DRT(R6) ; Store designated router index 
1 00 00 11CA 08 90$:  MOVL SSALEVSC-NO_EVT RI : No further events 
0 O01 90 11CD $ MOVB #1,R ; Allow state change 
05 11D0 0 RSB 
11D1 08 
11D1 09 ; 
113% \? ; Log “packet format error'’ & bring adjacency down 
11D1 19 60$: BUMP  8,RCBSB_CNT_PFE(R4) : Bump packet format error count 
11D¢ i $L0G TPL_PFM;, RS ; Packet format error 
11E4 14 
11E4 15 ; 
115¢ 51$ 3; Log event record & bring adjancency down 
51 246 dO 1164 3818 70$:  MOVL #LEVSC_LOG_ADE.R1 : Signal “adjacency down event" 
50 601 t' 4 i nove #1,R0 3; Make state change 
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vou ACT ELECT = Resolve election after waiti $78 Pa} 984 8:45:38 ENETACE. SREINEYDL ‘RN.MAR; 1 
1168 § 5 -SBTTL ACT_ELECT = Resolve election after waiting for allots 
1ie0 : ; ACT_ELECT = Resolve election which is waiting for ballots 
11E€8 § : This rout ing must only be called if we are a router (if an endnode 
Vito 3; was to set its DRT to ourself, we would probably crash). 
1168 § ; Inputs: 
11€8 : R11 = CRI CNR address 
11€8 3 R10 = CRI CNF address 
11E€8 3 R7 = ADJ address 
11EB 4; Io = LPD address 
11EB > R5 = WQE address 
1168 § 3 R4 = RCB address 
11e8 3 : Outputs: 
11€B 3840: RO = True if state change requested 
\iEe *) ; R1 = Next event to be processed 
1iee ‘§ : R6 is the only register preserved. 
1168 43 ACT_ELECT: 
11EB 23 : Clear the election suppression fla This means that after 
11E8 5e8 ; this point, the routine which rece the Router Hello messages 
BY rt ; will be free to run the election algorithm itself. 
11E€8 He CLRBIT #LPDSV_ELECT TIM,- 3; Clear election suppression 
BLS 838 LPDSW_STS(R6) 
110 54 ; Store designated router address in LPD. If we are the 
11F0 B22 ; designated router, then NETDRIVER will send our Router Hello 
11F8 528 3 messages to ‘‘all endnodes’’ as well “all routers’. 
1020 30 11F 58 BsBW = ELECT_ROUTER ; Elect a designated router 
2c A6 «=651~—s«BO FS 23 MOVW R1,LPBSW_DRT(R6) ; Store designated router index 
51 00 DO 11F7 61 MOVL 5 PL EVSCWOLEVT RY ; No further events 
50 O01 90 I1FA 6¢ MOVB #1,R ; Allow state change 
05 11FD 6 RSB 
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HEL = Received Endnode Hello me mets 7 94:94:32 YNETACP. SRC INETDLLTRN.MAR; 1 val (44) 


a -SBTTL ACT_RCV_EHEL = Received Endnode Hello message 
; ACT_RCV_EHEL = Endnode Hello message received 


1 = CRI CNR address 
0 = CRI py address 


sk" ic 


D 
P 
Q 
C 
r 


A 
L 
W 
Bg 
; Outputs: T 
; N 


: = True if state change requested 
e = 
Ac 


ext event to be processed 


a =O FRUONH= 


is the only register preserved. 
CTRCVEHEL: 
; Check that buffer size is reasonable 
CMP LEY _W_BLKSIZE, #NETSC_MINBUFS1Z 
aoe vite 1OF , TPL_PRSN_ADJB, ,R5 


i 
RCV. 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


OOCO 8F OO0000018"EF 81 At least gs big as minimum? 
OA Tf LSSU then no 
Buffer & too small 


35 «11 : Log the event, bring adj down 
t 


@ooo 
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10$: 3 
; Check that partner's node type hasn't changed 
01 A7 00000038'EF 91 CMPB 0s PTYPE, ADJ$B_PTYPE(R7) : Node type changed? 
OA 13 BEQL 3; Branch if o 
$LOG TPL_LDS, TPL_PRSN_UXPK, ,R5 3 Unexpected » i sag 
oe 208 BRB 70$ 3; Log the event, being adj down 
; : Store partner's block size and listen timer parsed from message. 
06 A7 00000018'EF Ro Mov LEV MBL KS Ize ADJSW_BUFSIZ(R7) ; Setup partner's buff size 
50 soouppee" F C MOVZWL LEV_W_HEL 3; Get partner's hello timer 
5 3 «(C4 MULL ST REC BET SMULT 2R 3 Multiply by hello/Listen factor 
08 A7 § 80 MOVW R “AD TSH Teka?) : Set Listen interval 
OA A7 B0 MOVW RO, ADJSW “TR tENCR?) 3; Start Listen timer 
51 00 DO MOVL $4 iEVSC NO_EVT.R1 : No further events 
50 1 + nove #1,R ; Allow state change 


; Log event record & bring adjancency down 


70$:  MOVL #LEV$C_LOG_ADE,R1 
MOVL #7,RO 


PPP PE PEWMIAINIPININDINIDA) 4 2 BOO TT 
FW C909 09 0909 HPS OO NINN BD WWII ONITIMMMMMMmMmMmMmMmmmmmmmmmmmrmnernern 


Si ignal “adjacency down event"’ 
ake state change 


et ee a a et a tt ts Ln te ts 4 ts st a i a st tt 26 
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- Receive routing nessage “SEP-1984 3:45:38 NETACP. SRE oN ET YOLLTRN. MAR; 1 nae (23) 


‘4 -SBTTL ACT_RCV_RT = Receive routing message 


; ACT_RCV_RT = React to recetyed routing message 
3 ACT “RCVERTA = React to routing message received while in acceptance algorithm 


Inputs: R11 = CRI CNR address 
R10 = rh yd address 


voseb00™ act’ 


‘we 
orc 
<— 
=] 
po Fe) 
— 


R5 = WQE address 


Outputs: RO = True if state change requested 
R1 = Next event to be processed 


R6 is the only register preserved. 


Jee Se Ge Ge Oe Oe Se Oe Be te 


CT_RCV_RT: ; React to rcv'd reyttng message 
19 10 BSBB peor RT 3; Do common processin 
09 50 3 BLBC RO,10$ ; If LBC then something's wrong 
0106 0 BSBW Reduest UPDATE ; Request running of update algorithm 
51 00 4} MOVL #LEVSC_RO_EVT,R1 : No more events 
50 O01 OD MOVL wR RO ~ ; Allow state change 
05 10$: RSB 3; Return state tab : control in RO/R1 
ACT_RCV_RTA: ; Receive routing peese e. while running 
3; the acceptance —- 
A 10 BSBB peor RT 3 Do common processin 
06 50 «ED BLBC 0,10$ :; If LBC then something’ s — 
: Terminate the acceptance testing and generate a “circuit 
; event. This is necessary since we've just updated the ao. 
1A AG 9% CLRB  —s LPD$B_TSTCNT(R6) ; Don't send any more, test messages 
51 10 00 MOVL #LEVSC_LIN_UP,R1 3: Signal "circuit up 
05 10$: RSB : Return state table control in RO/R1 
PROC_RT: ; Common Routing message processing 


SOISPATCH LPDSB_ETY(R6), TYPE=B, <= ; If we are an endnode, 
<ADJSC_PTY_PH4N °5$> >,- ¢ Never process rtg messages 
CAD ISC™ _PTY “PH3N, 5$>> 


: Is the adjacency in the RUN state? If not, ignore the routing 
3; =message, since it m fs) 


PPD DPI EBS EE BE SE WAI AAIAI AI AIAIAIGOPPOPININININININ 2 


AO OOD NIA MNES 2 O OO NIA ME WIN © OOONA UE WIN SO OD NOAU EWN CO OD NOUS LO" OWOOVOu 


ee ee me ee ed ee a td dt ts 4 — 9 — 9 9 2 — 3 8 = ts = 8 2 = = 2 6 = ds 1 2 2 ss 2 a ts ss ss 


PIP IPIPIPIPIMIMIPIPIPIPIPIPINIPPIPINIPIPIPININPIPIPPIPIPIPIMMIAPIPIPYIPIPIPIPIPIPIPIPPIMIPIPIPIPIPIPIPIPIPIPUPUPRIPD 

© OCD C9 OD GB GD ODD I I DE DDD DS DDD DDO TUT BB BBP PPP PLP LLL LEE 
PIMIOOOOOCO VT OODODOOOP PP PF OOUMMUWOM MMM & NL 
DWDOODODOOOODOOOVOVODOOVOVOOVOOVOOVOOOODODODOODOVODODOODODOODODODOVOVOOOVOOOOOOODOOOOOO 


oleae have preceeded the necessary Router 
Hello messages (for broadcast circuits ONLY). 
OA 32 ag 0A EI Bc #LPDSV BC. LPDSW_STS(R6),10$ ; If broadcast circuit 
6 1 3 BBS #ADJSV— NADIE STS(R75,10$'; and if not in “run” state, 
D 5$: MOVL BLEVSC. NON NEVER : Dro message - No more events 
D4 CLRL 3 Ind cate nothing happened 
” 83 108: 
? ; ; Did the operator change the adjacent node's address? 
00000014°EF 04 A? BI tmpw ADJ$W_PNA(R7),LEV_W_PNA ; Is the address the same as it was? 
6F 12 BNEQ 80$ ; If NEQ then not the same 
9 7 : Determine if this is a Phase III or Phase IV routing message. 
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ACT_RCV_RT = Receive routing message : bal 219: N ° NETDLLTRN.MAR; (45) 
yo.eb00 CT_RC Rr Recei i 4 5 SEP Ra 7 83 3 33 f ETACP.SRCIJNETDLLTR 1 . 45 
129 3f¢ ; = Phase ay! routing messages are unsegmented, so we can copy 
129 4 ; the entire routing purtion into the cost/hops buffer. Phase IV 
129 974 ; = rout ng messages are gegnenced. 9 we must run through each 
! 4 45 ; segment, copying the nformation into the right place. 
50. 20, A 3¢ (129 38 MOVZWL WQESW_ADJ_INX(R5).R ; Get the ADJ index 
50 00000980'EF4 DO 129 378 MOVL TSAC_CH_VECCROJ,R ; Point to cost/hops buffer 
5 13 1 3 97 BEQL $ : If none, then message error 
59 114A HS 12A 9 ? MOVZWL BEER .PRECRS) RP ; Get msg offset to routing info 
59 12A4 39 ADOL a 3; Convert to pointer 
58 16 AS 3C «(12a7 «39 : MOVZWL WOESL_PM2+2(R5) RB ; Get number of bytes of rtginfo 
00 0000003 y af s 9 CMP PTYPE ,#ADJSC_PTY_PH3 :; Is it Phase II] message? 
F 12 ! B¢ g : BNEQ 50$ : If not, then Phase IV 
1 44 3 $ >. Phase 11! routing sessage. then copy the qntive cost/hops 
\se) 3 portion into the cost/hops buffer for s circuit. 
53 59 00 1284 39 3 MOVL = RO, R3 ; Set address of rtginfo 
51 58 FF 8F 1287 3990 ASHL #-1,R8,R1 ; Compute number of nodes 
52 01 DO 128C 3991 MOVL P 3; Set starting node number 
4F 10 12BF 336 BSBB UPDATE _MATRIX ; Update the routing matrix 
2D. Ss : 3 16 BRB 90$ 
12C 995 : If Phase IV routing message, the run through the segments, 
! : 44 3; copying each portion into the right place itn the cost/hops buffer. 
58 04 7 12C 998 50$ BL #4,R8 3; Account for COUNT & STARTID 
sf 15 1 cs 999 8 7 3; Branch if packet format error 
51 9 HS 12C8 4000 MOVZWL (R9)+,R1 ; Get number of nodes in segment 
26 9 C 12CB $303 MOVZWL (R9)+,R2 3 Get starting node number 
: 9 DO 12CE & $e R9,R3 ; Set address of rtginfo 
7E 2 1 Cl 1201 400 ADDL3 = R1,R2,-(SP) 3; Compute ending+! node number 
00000400 8F 8 D1 1205 4004 (SP) +, #NUM_NODES 3; Larger than our buffer? 
1 1A 120C 4005 BGTRU 70$ 3; If so, error in routing message 
7E 51 OF 78 12D t+ ASHL #1,R1,-(SP) ; Compute number of bytes of rtginfo 
59 6€ CO 12E $38 ADDL (SP), : Skip past rtginfo 
58 8& C2 12€5 4008 SUBL (SP)+,R8 ; Account for cost/hops info 
OD 19 12€8 4009 BLSS 70$ ; Branch if packet format error 
4 19 12EA 4010 BSBB UPDATE _MATRIX 3; Update the routing matrix 
8 D5 12EC 4011 TSTL R8 ; Anything more? 
DS «14 «#12EE 4 \ BGTR 50$ :; If so, continue 
51 Be 4 12F0 40135 90$: MOVL #LEVSC_NO_EVT,R1 ; No more events 
50 1 DO 12F3 4014 MOVL #1,R0 ; Allow state change 
05 1 Fg 4015 RSB 
12F7 4 18 
is 38 
! 4 ? 19 3; Routing message format error 
12F7 4021 70S: $L0G {EL -LDF .TPL_PRSN_RUCS, .R5 3 Log ‘checksum error’ 
08 11 ' 44 ? § BRB 85 3; Log the event record 
' ! ? : ; Adjacent node address has changed - log event and bring Line down 
1301 4 § Os: $L0G TPL_LDO,TPL_PRSN_ADJC,.R5 3; Assume address change 
3} 36 0 1309 4 $: MOVL avey C_LOG_ADE .RT : Signal adjacency down event 
0 1 pO 130C 4028 MOVL #1,R0 ; Make state change 
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IX = Update the routing matri ets 83:95:38 NETACP.SRCJNETDLLTRN.MAR; 1 ° (46) 


-SBTTL UPDATE_MATRIX = Update the routing matrix 
3; UPDATE_MATRIX = Update the routing matrix 


ate 
wo 
—_ 
Dee 


NETDLLTRN = Rou 
Vv *600 UPDAT 


Inputs: 

RO = Base address of node column in routing matrix for the adjacency 
Ri = Number of nodes (non-zero) 
s = Starting node number 
R35 = Address of cost/hops routing information 
one = LPD address, for journal ting of routing changes) 
(R7 = ADJ address, for journalling of routing changes) 

; Outputs: 
None 


The RTG_ CHG vector is updated to reflect modifications 
to the “node column’ of the routing matrix. 
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ALL registers are preserved. 


UPDATE_MATRIX: 
1F se PUSHR #*M<RO,R1,R2,R3,R4> ; Save registers 
54 6042 E MOVAW (RO)CR2I,R4 ; Address of ist node in matrix 
50  00000000'EF D0 MOVL NETS$GL_PTR_VCB,RO : Get RCB address 
18 AO OD TSTL RCBS$L_PTR_JNX(RO) : Is journalling enabled? 
19 BNEQ 60$ 3; If so, use a slower loop 


: This Looe is used when journalling is turned off, so that 
; journalling doesn't slow down this loop when disabled. 
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84 83 861 10$: CMPW (R3)+,(R4)+ : Same info as Last message? 
0d 13 BEQL ; If so, no need to do anything 
FE AS =FE AS BO MOVW = =2(R3) ,-2(R4) ; Store the changed cost/hops 
SETBIT R2,RTG_CHG ; Update ‘'node changes"’ vector 
52 6 067 208: INCL : Increment node number 
—9 51 oF 0 SOBGTR R1,10$ ; Loop until all nodes done 
35 11 6 BRB 90$ 
8 : This loop is used when journalling is turned on. The idea 
7 5 is to log all changes in routing information, so that using 
, 3 the journal, we can trace the routing activity of a node. 
84 83 Bi 75 60$: (¢mPw  (R3)+,(R4)+ ; Same info as last message? 
2B 7 BEQL 0 : If so, no need to do anything 
gcB oe 4 7 BSBW We TS JNXCO : Initialize journalling co-routine 
18 50 3 4 7 BLBC 8 $ ; Skip if not enabled for some reason 
81 04 8 4 7 MOVB *x04,(R1)+ ; Record type = routing change 
H+ 0 A 4 MOVB LPD$B_PTH_INX(R6),(R1)+ ; LPD index 
1 4 A 8 4D MOVW ADJSWPNATR7) , (R154 ; Neighbor node issuing rtg msg 
52. 8B 1 MOVW R2,(RT)+ ; Node number 
Hy FE AG OB 4 MOVW =2(R4),(R1)4 : Old routing info 
1 FE A3 ° 8 MOVW -2(R3),(R1)+ ; New routing info 
H 3 C JSB 519 ; Log the journal record 
FE AS «6OFE A 8 § 65$: MOVW = »,~2(R4) ; Store the changed cont /tape 
6 SETBIT R2,RTG_CHG ; Update ‘‘node changes’’ vector 


————_—_ 


voacbb0 ree Aare ieee todas the tous er | oan "OrSEE=] St 84:95:38 PARINCS. SRESRe Yor ORy wanes P29 (28, 


D6 70$: NCL : ber 
cB Bi Hh sOBGTR RY, 60 tose uneil att nodes. done 


90S: POPR #°A<RO,R1,R2,R3,R4> ; Restore register 
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WO4-000 ACT RCV ART - Receive area routing messa east 7 $3 :F5 38 ENETACP. SREINEYDLL TRN.MAR: 1 . (47) 
} q Q 93 : -SBTTL ACT_RCV_ART = Receive area routing message 
1373 4095 ; ACT_RCV_ART = React to received area routing message 
! 4 ¢ 38 ; ACT_RCV_ARTA = React to area routing message received while in acceptance — 
1373 4098 : Inputs: R11 = CRI CNR address 
1373 4 3 ; : R10 = CRI CNF address 
1373 4100; R7 = ADJ address 
1373 4101 ; Re = LPD address 
} 4 a ; 3 R5 = WQE address 
1373 4104 : Outputs: RO = True if state change requested 
: f } 5 : Ri = Next event to be processed 
, 41 : : R6 is the only register preserved. 
1373 41 § ACT_PCV_ART: ; React to rcv'd area routing message 
19 10 13735 4110 BSBB PROC_ART ; Do common processing 
09 50 3 1375 «4111 BLBC R :; If LBC then something's wrong 
0op2 30 1378 4112 BSBU © REQUEST_UPDATE ; Request running of update algorithm | 
51 00 00 1378 411 MOVL sLEVSC_RO_EVT.R1 ; No more events 
50 01 00 137E 4114 MOVL #1,R0 ; Allow state chenge 
05 : 2) 2ii2 108: RSB ; Return state table control in RO/R1 
138 a119 ACT_RCV_ARTA: 3; Receive routing peeseee while running 
138 tht 3; the acceptance ah gers hm 
OA 10 1382 411 BSBB PROC_ART 3 Do common processing 
06 50 =«=«E9 ! rf ot 9 BLBC RO,10$ : If LBC then something's wrong 
1387 41 § ; Terminate the acceptance testing and generate a ‘‘circuit up" 
! 4 a z ; event. This is necessary since we've just updated the matrix. 
1A AG 9% 1 HY 4125 CLRB LPDSB_TSTCNT(R6) : Don't send om more test messages 
51 10 DO 138A 41 § MOVL #LEVSC_LIN_UP,R1 3 Signal “circuit up’ 
0 : sp rt: 10$: RSB ; Return state table control in RO/R1 
138E 41 5 PROC_ART: ; Common Routing message processing 
138E 41350 SDISPATCH LPDSB_ETY(R6),TYPE=B,<- ; If we are an endnode, 
138E 4131 <ADJSC_PTY_ -5$>,- |; never process rtg messages 
: $3 a ¢ <ADJSC_PTY_PH3N,5$>> 
1390 4134 : Is the adjacency in the RUN state? If not, ignore the routing 
1390 4135 3; message, since it might have preceeded the necessary Router 
! 0 3 § : Hello messages (for broadcast circuits). 
OA ee ag OA €1 1390 41 3 ac #LPDSV_BC .LPDSW_STS(R6) 198 : If broadcast circuit, 
6 g 3} 3 135A2 41 BBS #ADJSV_RUN ADJ$B_STS(R75,1 $ ; and if not in “run” state, 
1 00 00 1 4140 5$: MOVL #LEVSC_NO_EVT.RI ; No more events 
50 04 1 4141 CLRL R 3: Indicate nothing happened 
FTE AE tos, 8 
' rv 2iee : : Did the operator change the adjacent node's address? 
00000014"EF 04 A7 81 13AC 4146 CMPW = ADJ$W_PNA(R7),LEV_W_PNA ; Is the address the same as it was? 
SF 2 ‘ 414 BNEQ 808 : If NEQ then not the same 
1386 £105 : Copy the routing information into the buffer associated with 
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voueb00™ ACTOR 


or 


3; ~=tthis routing adjacency. 


; Branch if packet format error 
Compute ending offset into buffer 
; Greater than size of buffer? 

If so, error in routing message 
Save registers 

Copy into cost/hops buffer 
Restore registers 


2 


7E ; R1,R2,-(SP) 
00000080 &F (SP)+,#NUM_AREAS*2 


0 

| 

5 

8 7 

3 PUSHR #*M<RO,R1,R4,R5> 
5 

5 

0 


0 20 3 MOVZWL WOESW_ADJ_INX(RS5) ,RO Get the ADJ index 
50 00001488 EF Dd MOVL TSAC_AREA_CHCROS,RO Point to cost/hops buffer 
} act If none, then message grror 
59 14 MOVZWL WQESL_PM2(R5),R9 Get msg offset to routing info | 
59 § L Convert to pointer 
58 16 MOVZWL WOES| _PH2+2(R5) .RB Get number of bytes of ctginto 
‘ 50$: SUBL #4,R Account for COUNT & STARTID 
BLEQ Branch if packet format error 
1 MOVZWL = (R9)+,R1 Get number of nodes in segment 
. MOVZWL (R9)+,R Get sterting node number 
51 ASHL #1,R1,R Compute number of bytes of a Me 
52 § 7 ASHL #1 Re Re Compute offset to node's cost/hops 
5 ‘ SUBL R1,R ; Account for cost/hops info 
C 
i) 
1 


6042 69 MOVE ~—s_ R17, (ROS CRO) ERA] 
“n > 


POPR #*M<RO,R1,R4,R 
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59 C ADDL R1,R9 Skip past rtginfo 
D TSTL R8 Anything more? 
1 BGTR 50$ If so, continue 

51 D 90$ MOVL #LEVSC_NO_EVT,R1 No more events 

50 3 MOVL #1,R0 Allow state change 


; Routing message format error 


70S: $LOG §TPL_LDF,TPL_PRSN_RUCS,,R5 ; Log "checksum error’ 
BRB 85$ 


08 11 ; Log the event record 


; Adjacent node address has changed - log event and bring Line down 
bos: $LOG TPL_LDO, TPL_PRSN_ADJC,.R5 ; Assume address change 


MOVL #LEVSC_LOG_ADE,RT 3 Signal adjacency down event 
nowt #1,R0 ; Make state change 
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P -SBTTL REQUEST_UPDATE = Request update of routing database 
REQUEST_UPDATE = Request running of the ‘‘update’’ algorithm 

; This routine is called for all normal updates to the routing database. 

; It prevents the update algorithm from being run too often, and hogging 

; the machine, by using a supression timer. 


; Inputs: 


OOO0O000 Mae 


OOONAUSE UW 
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: Outputs: 
A 


1424 4 
1424 4 
1424 4 
1424 4 
1424 4 
1424 4 
1424 4 
1424 4 9 
1424 4 
1424 4 § 
1426 4 : 
1424 4204 
1424 4205 
1252 2509 N 
: one 
1424 4 
1? ? 2 09 R4-R6,R10-R11 are preserved. 
1424 4211 ACT_REQ_UPDATE: ; Update database based on CRI change 
07 10 14246 4 ¢ BSBB REQUEST_UPDATE 3; Request update 
51 00 00 1426 421 MOVL #LEVSC_RO_EVT,R1 ; No more events 
50 03001 t' 1 ; 2 13 oy #1,R0 3; Allow state change 
1420 421 
1? . ? 17 REQUEST_UPDATE: ; Request running of update algorithm 
1420 4 i 5 If the suppression timer is not already ticking exit and wait for 
1? ; ? y ; it to fire. Otherwise reset it and run the update algorithm. 
14 4 4 § SETBIT #RTG_V_UPD RTGFLG ; Remember request to update 
48 vet ted 90 ge 14 4 BBSS #RTG_V_RUS,RTGFLG,20$ ; Exit if supression timer is ticking 
51 201 8F C 1430 4224 MOVZWL #<<WOESC_QUAL_RTG>@8>!- ; Setup suppression timer i.d. 
1906 4225 NETSC_TIB_RUS~RI 3 
52 9°AF GE 1442 & $ MOVAB B“TIMER_ROS_R2 3; Setup action routine 
8 0 8F 88 1446 4 PUSHR #*M<R7,R8,R9,R10,R11> : Save registers 
5B Q0000000'EF 00 144A 4 8 MOVL NETSGL_CNR_LNI,RI1 ; Set CNR address 
"EF DO 1451 4 MOVL NETSGL_PTR_LNI,R10 ; Set local CNF address 
i 4230 SGETFLD Lni Reree ; Get routing suppression timer value 
53 8 DO 1465 4231 MOVL R8, ; Move to another register 
oF 80 F BA 1468 4 ¢ POPR #*M<R7,R8,R9,R10,R11> ; Restore registers 
53 ° 3; 1e96 : ? 8s 89-1 $ ; If not set, provide default 
53 00 53 00989680 $F A 1299 4235 10$: EMUL #16*1000*1000,R3.#0.R3 ; Convert to standard VMS time 
—B82" 30 1078 2 § BSBW WOESRESET_TIM 3; Reset the routing suppression timer 
Vere 2 8 ; Run the update algorithm on the data base. 
147E 4240 CLRBIT #RTG_V_UPD,RTGFLG ; Indicate update request satisfied 
17 19 ¢ : ; a3 208 B538 UPDATE 3 Update the routing data base 
14 424 
1489 4244 TIMER_RUS: ; Update suppression timer has fired 
FBFC §=630 «61489 4245 BSBW KILL_WQE 3 peas Locate the timer block 
14 f 4 $$ CLRBIT #RIG_V_RUS,RIGFLG : Indicate timer no longer ticking 
02 00000040‘ EF 4 ‘ 14 424 BBC #RTG_V_UPD,RIGFLG,10$ ; If BS then update has been requested 
F Q 149C 4 48 BSBB sw REQUESST_UPOATE ; Perform the update & reset timer 
05 1496 4249 108: RSB | 
| 
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1O9F ; i -SBTTL UPDATE = Update database and neighbors | 
163 2 ? ; UPDATE = Update the routing data base 
149F 4255 ; Run the routing algorithm, update the routing data base, and 
ye 2 § : schedule rout ike aessege transaission to all rout ing nodes. 
149F & : : INPUTS: None 
149F 4 3 
149F 4260 ; OUTPUTS: None 
149F 4261; 
1e0F : 86 3 R4-R6,R10-R11 are preserved. 
149F 4264 UPDATE: ; Update the routing data ba 
OC70 BF BB 149F 4565 PUSHR H*RCRG ARS ARG RIO/RI1> — Save registers: . 2 
54 QO000000'EF DO 14A3 4 6 NET GL : CB addres 
IAA 4 6 SDISPATCH RCE 4 FIV CRaS, J. TyPEsB, < j “bo the full decision if we are: 
3 eve router 
14AA 4 $3 <ADJ$C~ ae $>,- 3 A level 1 router 
yee 2 A! <ADJS$C- “PTY png! 5$>> 3; A Phase III router 
14BA 4 ts : If we are an endnode, then run a much shorter and simpler 
re ? ? : decision algorithm. 
0509 30 14BA 4275 6sBw ENDNODE DECISION ; Run endnode algorithm 
00C6 1 1408 ? 16 BRW 0$ 3 exit 
eee 16 1266 4278 5$: JSB NETSGET_RTG3 ; Get routing info 
05 50 €9 1406 4279 BLBC : Branch if error 
6A AS B5 14€9 4280 TSTW RCBSW_MAX_RTG(R4) 3 Any fouttog oe adjacencies? 
03 12 #14€C 4 4 BNEQ 0O$ : Continue i 
0085 = =s 31 1ec8 ? § + #4 BRW 90$ 3; Nothing to oo 
ed 2 bs ; : If we are a level 2 router, then update the area database 
54 OOOOO'EF DO 1401 4 86 MOVL NETSGL_PTR_VCB,R4 Get RCB address 
0 008A 3 *4 e+ 2 ee R B$8_ ETY(R4), #ADISC PTY_AREA 3 are “ level 2 router? 
3 no 
58 sia a's 06 14DF 4 5 MOVL NETSGL_CNR_LNI,R11 3 nt root 
SA "EF 1) 1466 4290 MOVL NETSGL - PTR- UNI, “R10 3; Get LNI CNF 
35 9 4 2 4 hg nt am 3 poten max hops field 
: Br on error 
0000002C ‘EF 28 A 164FD & 38 MOVZBL R8. MAX_HOPS : Store it 
9 1341 ? 3¢ S65 FLD uni amc 5 peves max cost field 
; Br on error 
00009950" 34 “a ic 1514 4 38 MOVZWL AX_COST : Store it 
5 08C gs A 1518 429 MOVZBL Reet MAX_AREA(R4),R8  ; Get max area address 
06 1 ? 38 INCL : i mumber of area addresses counting 
SA 0 pate — 15 4 ? MOVAW @RCBSL_PTR arn R8) rio’: Point past last OA entry 
00000980" "EF GE ; 13 4 MOVAW NETSAW"A ARER ¢ »R11 ; Point past Last Cost/Hops entry 
! F ; ¢ 208 BSBW AREA_DECI : Update the area data base 
i : 2 ¢ : Call the DECISION algorithm to update the level 1 forwarding database 
SA 90000000 EF dO 1 4 MOVL  NETSGL_CNR_LNI.R11 : Get LNI root 
SA 0000‘ EF oe 15 4 : MOVL NETSGL- PTR- JUNI, R10 : Get LNI CNF 


seh" 


senses 33 


settee teal er ft 


SA 1C B44 
5B 000001 ah 


0309 
0C70 8F 


ng & Datalink contro 
= Update database an 


SGETFLD tot sat" mho 
BLBC 


19be 82:49:33 f 


NETACP.SRCINE DLLTRN. MAR; 1 
; Fetch max hops field 


—ooO 


Fetch a cost field 
rror 


AX_COST 
RCBEU RATS ADDRCR4DR Get max node addre 


b Set ——- of node “odéresses counting 
arc AWA 4h eee ooPoint past Last OA entry 

int past last Cost/Hops entry 
: Update the data base 


Send oe messages to our neighbors, if the database changed 


UPD _NE IGHBORS 
#*MZR4,R5,R6,R10,R11> 


Sete Cre Fe Se Se Ge Se Se Sete 


; Restore registers 


—> bd td 2 8 tt 
a ehh hh eb ch bh 
9090909090009 SI NII SIO OO UIE 
PAOWWUW OF SME NOVO 
Foy oP oP oF oF ot ot oF ot ot ot ot ot ot at ot ot 
RPNONONIN SS SS ee 
UFWN—OO@NOUS WHO 


sc" 


54 ss aaa 9 + 
57 A AG 


07 
57. 57 = FD HH 
000000 


5 
36 00 00000080'EF 7 
mi 


54 00000000'EF 


0092 
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te forwarding database ae Yi 3:99:38 NETACP.SRCINETDLLTRN.MAR; 1 aps (30) 


-SBTTL DECISION = Update forwarding database 


s@ 
; DECISION = Update the routing and forwarding databases. 


Dee Se Ge Oe Oe Oe Se Oe Se Se Se Se Sete 


Inputs: 


Address of Last entry+! of min. cost/hops buffer 

Address of last entry+1 qt OA vector 

= Ending address correspord " to last entry in vectors 

COST = Maximum cost value allowed for routing database 
HOPS = Maximum hops value allowed for routing database 

CHG = Vector which indicates which nodes must be processed. 


OUTPUTS: None 


ALL registers are destroyed. 


; See if we need to do anything at all. 


MOVL NETSGL_PTR_VCB.R4 3 Get RCB address 
MOVZWL RCBSH_AAX_ADDR(R4) ,R7 : Get max address 
ADDL = #7,R7_ ; Allow for roundoff 
ASHL #-$,R7,R7 : Divide by bits/b 


te 
CMPCS R7,RTG.CHG,- ; Is the entire RTG. CHG vector 0? 
#0,#0, TSP) 
BNEQ 5$ 3; If at least 1 bit set, do it 
RSB 3; Otherwise, exit now 


; Record a journal record marking when we have started the 
3; ~=©routing algorithms. 


BsBw NETSJNX_CO : Initialize journalling co-routine 
ou 


BLBC RO, 3; Skip if ry not enabled 
th # X02, (R1)+ ; Record type = Starting algorithm 


; spare byte 
MOVCS R7,RTG_CHG,#0,#64-8-2,(R1) ; Journal the routing bitvector 


R3,R1 3; Update pointer past record 
JSB asp)+ 3; Log the journal record 
Force the cost/hops for node #0 to always be re-evaluated 
each time, because of the code at the bottom of the loop 
which resets the ngarees level router’ based on the 
adjacency for node #0. 


; Always re-evaluate node #0 


; Init registers, and start the loop 

MOVL NETSGL_PTR_VCB,R4 ; Get RCB address 

BRW 100$ ; Advance to the end of the loop 

: See if this node needs to be looked at. If we haven't received 
; e® rousing message from any of our neighbors indicating that the 
; node cost/hops has changed since Last time, then skip the node. 


<z 


Is the node within range? 
If GTRU then no 

Is the node within range? 
If LEQU then yes 

; Node is unreachable 


; Build the packed cost/hops field 
ASSUME TR3V_RT_COST €0 
INSV 


BGTRU ice : 
CMPW R $ 


MAX_COST 
BLEQU 408 
CLRL =. RO 


5 ee 
re 
00000030' EF ’ 
38 
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vou DECISION’= Update forwarding database ae $3395 :38 ENE TACE. SREINEYDLLTRN. MAR: 1 
D7? 4383 : 
09 00000080’ EF £4 1507 4384 108: 68SC  RB.RTG_CHG,15$ ; Lookup node if siecessary 
ee a ae | Fg Bast ctettast tsea IS 
3 ast min cost/hops for 
00 4 E ? 5 158: BRwW 106$ $ Else. skip the node entirely , 
4 ; ; ; Determine least cost path to this node 
0115 30 4 ; BsBW = FIND_PATH_TO_NODE ; Find hops, costs, and adjacency 
439 : If the cost or hops to this node exceeds our maximums, 
2 2 ; then declare the node unreachable. 
0000002C "EF 4 } CMPB sR}, MAX_HOPS 

439 
439 
440 
ret 
44 
44 
sto 


OA 51 F0 1 


R 
#TR3S_RT-HOP 


OO NAUE WN 9 OOONOAUE Wit — 
Ww 
oo 
bed 


R2, °X<7FFFD> 
CMP (R11) ,@°X<7FFFD> 


7$: SETBIT R8,REACH_EVT 
8$: 40 & 


GA 
7FFF BF 5 e 


7FFF 8F és Ni 


; Is node currently unreachable? 

; If GEQU yes, reachability change 

; Was node unreachable before? 

> If LSSU no 

; Indicate change in reachab 

° ; Update the ver tor 

ASHL #-LPDSC_SRM_SHFT,R8,R1 ; Compute SRM bit for this node 

MOVZBL RCBSB MAX_LPD(R4S,R : 
@RCBSC_PTR_LPD(R4SCR2I,RS 


BBC #LPDSV_RUN,LPD$W_STS(R3) .6 


@w 
me 
<c o 
Cc 
wm 
Sete Ge Ge Ge Ge Ge te @ 


Get number of circuits 
; Get LPD address 

Branch if slot not valid 
$ ; Branch ¢ 


53-28 B442 00 
1 
05 22 a3 be E1 


rcuit not up 


ce ec me em me em ee ee ee ee ee ee ee ed ed ed dd od 


52. 05 440 HOPS - : meres hops/cost 
440 ASSUME TR3S_RT_AOPS+TR3S_RT_COST EQ 
52 8000 8F AA 1604 440 BICW #*xX<8000>,R2 ; The high bit must be zero (Transport 
$29 Pret ; architectural requirement 
609 4411 ; If the node is now unreachable, then force the cost and hops 
609 44 § 3; Cloke boogie bd so that our neighbors realize the node is down now 
9 44 ; (they might have a higher maxcost, and wouldn't realize the 
H rr : ; node is unreachable until much Later). 
5 D5 09 44 TSTL : Is the node reachable? 
0 12 pe 44 3 BNEQ 55$ :; If not, 
52 7FFF 8F 3C¢ D re 8 558 MOVZWL #*X<7FFF>,R2 ; then make cost/hops infinite 
4420 ; Send routing msg only if MINCOST or MINHOPS have changed. If 
4421 3; there has been a change in the node's reachability then record 
rr § ; this fact so that it can be sent to the event logger. 
4426 ASSUME TR3S_RT_HOPS+TR3S_RT_COST EQ 15 
7B 8000 gf AA 4425 BICW #, Xe B00» .= (R11) ; Ignore high bit 
68 2 a 4s § CMP R2, (R11) ; Was there a hops or cost change ? 
4u BEQL ; If EQL then no 
4G 3 cM 
4G 
4430 
i233 
1238 
4434 
ity 
44 $ 
b& 3 
44 


HANA AA. AAAI PPPIPINONNININYD 4 9 


PVG DS VV PS COW OO BW INPIMPINININIPINY 


Page 105 
9 195) 


e: 
no reachests ity change 
ha lity status 


: (skip ADJSV_RTG check to save time) 


<z 
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Wou-b00 DECISION’ Update forwarding database iets $345 :38 NETACP.SRCIJNETDLLTRN.MAR; 1 . 38) 
1964 444 SETBIT R1,LPDSG_SRM(R3) ; Set SRM flag 
Ec 52. SF S ! 4f at 65$: SOBGTR R2,60$ ; Loop through all circuits 
16 reek. 3 If the node is a direct partner, and is a Phase II adjacency, 
1 4444 3; then do not include the node in fout tng messages, to enforce 
19 4445 ; Phase II non-routing rules, but keep the OA vector pointing 
1? rere | 3 to the output adjacency for the Phase II node. 
5 p 16 4448 TSTL 0 3 Is node directly adjacent? 
1 16 444 BEQL 70$ : If not, skip Phase II check 
51 2C B44 p 1656 4450 MOVL  § @RCBSL_PTR_ADJ(R4)CROJ.RI ; Get output ADJ address 
02. 01 Al 1 1928 rit CMPB {50 _PTYPECRI) ,#ADISC_PTY PH2 ; Phase II direct adjacency? 
05 if 165F 44 : BNEQ : Branch if not 
68 7FFF BF B 199) ret 708 MOVW #*°X<7FFF>, (R11) ; If so, don't include in routing msgs 
1886 yet ; Update the OA (output adjacency) vector. 
7A «5 B0 1998 te89 90$: MOVW 4 Sn 3; Update output adjacency to node 
02 5 F4 166 ret 100$: SOBGEQ R8,102$ ; Loop for each node address 
03 11 «166C 445 BRB 105$ : Loop finished = go on 
FF660=s 331 1oge 4460 es: BRW 10$ ; Branch helper - continue Looping 
1671 4461 1058: ; 
1671 446 ; For entry #0 (nearest Level 2 router), we must decide if we 
1671 446 3; are the nearest level 2 router. If so, force node #0 to a cost 
ert rhe: : and hops of 0. Else, leave the value as computed from neighbors. 
1671 4466 3 If no other areas are reachable except our own, then it may mean 
1671 4467 3; «we are an isolated area router. If this is the case, then allow 
1671 4468 ; routing to continue by simply pretending we are a level 1 router, 
1671 4469 : and propagate the ‘nearest level 2 router’’ as determined by our 
1671 4470 3: neighbors, and never use the AOA vector for forwarding (since we 
197) ret 3 may not really know the state of the level 2 network). 
1671 447 CLRBIT #RCBSV_LVL2,- ; Assume we cannot do level 2 routing 
1671 4474 RCBS$B_STATUS(R4) 
03 OO8A C4 91 1676 4475 CMPB RCBSB_ETY(R4) ,AADJSC_PTY_AREA ; Are we an area router? 
1F 12 1678 oae8 BNEQ 1 3; Skip if not 
58 08C C4 9A 167D 447 MOVZBL RCBSB_MAX_AREA(R4) Re 3; Get the maximum area number 
0 8448 8 1682 4478 110$: TSTW  @RCBSC_PTR_AOA(R4)CR8) ; Is any other area reachable? 
11 13 1686 447 BEQL 115$ 3: If not, continue searching 
0088 C6 «458 91 «1688 4480 CMPB R8,RCBSB_HOMEAREA(R4) ; Our own area? 
OA 13 1680 4481 BEQL «= 1158 : Skip our own area - it doesn't count 
6A 01 BO 168F 44 § MOVW #LPDSC_LOC_INX, (R10) : If so, mark ‘‘nearest’’ as local ADJ 
68 B4 16 : Gu CLRW (R11) 3: and send ‘nearest = 0 cost/hops 
1694 4484 SETBIT #RCBSV_LVL2,- : Tell Transport it can use the AOA 
1694 4485 Reese STATUS(R4) 3 vector - we are not isolated. 
—E6 58 «=F S 1909 7 § 1138: SOBGTR R8,110$ ; Loop thru all areas 
169C 44 3 3; Take the value for entry #0 (nearest level 2 router) and store 
169C 44 s ita : special place in the RCB so that TRANSPORT can get at 
169C 44 ; it easily. In addition, set OA(0O) to point to ourselves, since 
+245 rr 3: the internal convention is that node #0 refers to ourselves. 
OOAC C4 GA 4 169¢ 449 Movw (R10) ,RCBSW_LVL2(R4) ; Store path to nearest level 2 router 
6A 1 BO 16A1 4494 MOVW #LPD$C_LOC_INX, (R10) 3 Set A eh adjacency for node 0 
: vi 1282 3; (node 0 is the always the local node) 


WE TOLL ARN = Routin 
v04- DECISION = Update forwarding database -SEP- 
16A4 4497 
g F BF 3 i Ae ret MOVZWL #NUn NODES=1 
40 00000000" EF es eS ' Ag 4 2008 Bact »REACH_EVT, “8 os 
5 "EF 8 1683 4 j MOVAB NETSAB Ev WOE RS 
4 EF DO 16BA 4 MOVL NETSGL“PTR-VCB,R4 
58 "EF p 16C1 4504 MOVL NETSGL-CNR-NDI,R11 
E935° 16€8 4505 BSBW TSLOCATE NDI 
12 a5 58 80 16CB 4 $ W  RB,WOESW REQIDT(RS 
0088 C46 «6FO «(C16CF C4 INSV oR HOMEAREA(R4) ,- 
A 1603 4 § #TR4$0_ADDR_AREA,- 
12 AS 1604 4 #TR4$S_ADDR pAREA W 
90 1607 4510 MOVB HEV CSC. TPL_PSTS AC 
1E A 1609 4511 EVL 61 1(R5) 
1¢ 8448 85 160B 4 13 TSTW RCBSC_ PTR _OA(R4)CRBI 
B55 18h EERE actu pers unc, 
1E AS 16E3 4515 WOESB_EVL atts) 
O10E 8F BO 16€ 4316 205$: movw #evc$t TPC RCH 
1C AS 16€9 431 woeSW EvL CODERS) 
E912" 30 1668 4 18 BSBW 30S s NETSEQT_IATRAW 
5 8EDO 16EE 451 POPL 
B5 58 FS 16F1 4520 210$: SOBGTR R8,200$ 
16F4 4521 
16F4 45 ¢ 
16F4 45 : routing algorithms. 
16F4 4524 : 
909" 30 16F4 4525 BSBW = NETS JNX_CO 
05 50 9 16F7 4526 BLBC : 
81 03 90 16FA 4527 MOVB #*x03,(R1)+ 
9E 16 16FD 4528 JSB a(SP)+ 
05 16FF 4529 300$: RSB 


) 
ae ESw -REQIDT(RS) 
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NETACP.SRCJNETDOLLTRN.MAR; 1 


; Log an event for each node whose reachability status has changed. 


Setup max node addre ess 
f BS then reachability change 
Save node address 
Point to common event WQE 
Get RCB 


Get the NDI root block 
Get note" s CNF block 

Setup the node edarece 
using the current area 


; Assume node is now reachable 


; Is node now reachable? 
; If NEQ then ye 
; Signal ‘‘unreachable"’ 


; Setup event logging code 


; Log the event 
; Restore node address 
; Loop for each node 


: Record a B pave’ record marking when we have finished the 


inittol ize journalling co-routine 
Skip if journalling not enabled 


; Record type = Ending algorithm 
; bog. the journal record 


(50) 


zo 
Oc 
Coe 
me 
| 
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W400 FIND. 4 Find least tost path g7 SEE bbe 83:95:38 ENETACE. SREINEYDLLTRN.MAR; 1 . ( , 
; -SBTTL FIND _PATH_TO_NODE = Find least cost path to node 
; FIND_PATH_TO_NODE = Find least cost path to a node in our area 


Inputs: R8 = Node address 
R4 = RCB address 
Outputs: R1 = Number of hops to node 


Re = Cost to node 
RO = New ADJ index of path to node 


R4 is preserved. 


Wiese Ge Ge Ge Ge Se Ge Ge eee 


#TR4$S-ADDR-AREA, ADJ$W_PNA(R9) ,RO 
: area = 0, assume our area 
0088 ¢4 «(59 


59 00000980°EF4 


CMPB R9,RCBSB_HOMEAREA(R4) ; Is it for our area? 
3; If not. skip this one 
108: MOVL BE I SAL_CHLVECER?]..R9 3 Fojat ye cost/hops buffer 


Skip none for this circuit 


IND_PATH TO_NODE: 
0400 8F 6B POSHR #*M<R10> 3 Save registers 
0 €D CMPZV) #TR4$V_ADDR_DEST,- ; Is this the local node? 
58 OF AG OA #TR4$S_ADDR-DEST ,RCBSW_ADDR(R4) ,RB 
rr £ BEQL«s(3$ : Branch if so 
008D C4 83 TSTW RCBSW_ALIAS(R4) ; Is there an alias? 
11 1 BEQL $ 3; If so 
00 ED CMPZV #TR4$V_ADDR_DEST.- : Is this the alias node number? 
58 008D C4 A #TR4$S_ADDR_DEST,RCBSW_ALIAS(R4) ,R8 
8 12 BNEQ 5 3; If not, proceed 
50 01 9A 3$: MOVZBL #LPD$C_LOC_INX,RO : Setup index for ‘local’ adjacency 
, CLRQ R1 ; Zero cost, hops 
OOA6 31 BRW 100$ : and exit with success 
57 1 00 5$: MOVL #1,R7 3; Init adjacency index 
0 04 CLRL RO 3; Assume unreachable 
51 at CE MNEGL #1,R1 ; Init min hops value to infinity 
52 1 cf MNEGL #1,R2 : Init min cost value to infinity 
59 2C B447 OD 7$: MOVL  @RCBSL_PTR_ADJ(R4)CR7],R9 ; Get ADJ address 
OF 69 O01 €1 BBC #ADJSV-RUN;ADJ$B_STS(R9) ,108 3; Skip check if PNA not valid and 
3 assume cost/hops applies to our area 
A EF EXTZV #TR4&$V_ADDR_AREA,- ; Get the area that cost/hops applies to 

1 

9 

1 

D 


MOWOoNn—Ww 


em ee ee ee me ee me ee ee me ee ee ed ed ed ed ed ed wd od dS dd 3 2 = = = = dd = SS 3 wre 
Pe ee ee ot ot ot ot a MMM MMMM MMMMAMA MMMM mmm nm M Mmm mem mma Ream 
PU PUPUP UPL SIASP TU UFUTUUTT II II kl 
NNN NIAAA AAA AA ADA WAH BS BS EE EAA AAA 
NOUEWN 29 ODNAUEWN OOD NOAUNE WN OOO NAME WIN O OONOUE WIN 


SA 5 MOVL R7,R10 Remember ADJ index for this path 
59 6948 5 MOVAW (R9)CR8],R9 ; Point to entry for this node 
37 $ Get the cost/hops for this node over this adjacency, 
7 $ and increase it by the nop for ourself. Also compute 
q : the new cost for this path. 
56 2c “~< dO 7 § MOVL @RCBSL_PTR_ADJ(R4)CR7],R6 ; Get address of ADJ block 
56 02 A6 9A 0 MOVZBL ADJ$B CPD INX(R6),R6 | ; Get LPD index 
56 28 B446 0 6 1 MOVL @RCBSC_PTR_LPD(R4SCR6],R6 ; Get address of LPD 
56 29 A6) ODA 3 ; MOVZBL LPD$B_COSTTR6) .R6 ; Get cost for this circuit 
9 4 ASSUME TRSV_RT_COST EQ 
, 5 ASSUME TRSS_RT_COST €EQ 1 
53 69 FCOO 8F AB 83 a BICW3 #*X<FCOO>, (R9),R3 3; Get the cost value 
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yOu FIND BATA. TO NDE = Find least Yost path eset Pi 93:43:32 ENETACP. SREINETDLL TRN. MARS 1 (97) 
AO 176F 4 ADOW R6,R3 3; Add in the circuit's cos 
28 1D 1798 & § B 3 If VS then cost is infin te 
53 O2FF 8F e Wee 4 9 CMPW #*X<2FF>,R3 3 Has cost over toueg allowed Limit? 
41 F 1008 ? 4 BLSSU 208 ; If LSSU then yes, it's not a minimum 
177B 4 38 : Fora breedeass circuit, the cost/hops buffer contains 
177B 4594 3 the syate of all endnodes on that broadcast circuit. 
1778 4595 5; 3. the node is ‘‘reachable’’ over the broadcast circuit, 
177B 4 38 ; then we have found the shortest path (by definition), 
1778 2 4 ; and return success immediately. 
5C AG 7 91 #1778 1899 tmpB R7, RCBSB_MAX_LPD(R4) i; Is this a main LPD adjacency? 
1A 177F 4600 BGTRU 15$ : Branch if not 
56 28 B447 ~=+D0 1781 4601 MOVL § @RCBSL_PTR_LPD(R4)(R7],R6_; Get LPD address 
04 22 A6 OA Fe 1786 4 § BBC #LPDSV"BC ,CPDSW_STS(R6S,15$ 3; Branch if not broadcast circuit 
41 17 46 BSBB BIND_ERDNODE BER ; Put node's BEA index in R10 
Y.) | if $088 158 BEQL 20$ : Branch if not found (& unlikely) 
178F $806 : Check to see if this path is ‘‘less cost’ than the previous 
178F 460 ; minimum cost. If so, remember this path as the best one. 
Wy : rts: 3; Use the node address of the adjacent node as a tiebreaker. 
52 53 81 178F 4610 MPW R3,R2 3; Is cost value a new minumum ? 
28 «3=61A «(1792 «4611 BGTRU § : If GEQU then no 
11. «IF «11794 red BLSSU 18$ ; If LSSU then yes 
56 C B447 DO 1796 461 MOVL tht ret i apeedy 44 ; Get address of new ADJ 
55 C B440 D0 17 4614 MOVL @RCBSL_PTR_ADJ(R4)CROJ.RS ; Get address of old ADJ 
04 A5 O4 A B1 17AQ 4615 CMPW ADJ$W_PNA(R6) ,ADJSW_PNA(RSS ; Highest ad} node address 
1 1B 417A reat | BLEQU§ 20% : is the tiebreaker for equal costs 
OA EF 17A7 4617 18$:  EXTZV #TR3V_RT_HOPS,- 
55 69 5 17A9 4618 #TRSS_RT_HOPS,(R9),RS5 ; Get the hops value 
5 96 17AC 4619 INCB RS 3; Add in the hop to the adjacent node 
1F 55 91 I7AE *620 CMPB RS, #°X<1F> ; Has the max hops overflowed ? 
9 1A 17B1 4621 BGTRU 20$ : If LSSU then yes, it's not a miniaum 
52 3 0 1783 46 MOV R3,R 3 Save new minimum cost to node 
51 5 0 1786 46 MOVB R5,R ; Save hops to node 
50 A 0 1789 4624 MOVL R16,R0 3; Save output ADJ index for path 
53 6A AG | 17B8C 4625 208: MOVZWL RCBEY MAX _RTG(R4) .R3 ; Get number of routing adjacencies 
02 57 53 &F3 1700 46 § AOBLEQ R3,R7,30$ 3; Loop until done 
03 #11 «#1764 46 BRB 106$ : Exit with success 
FF65 = 31 1766 46 3 30$: BRW 7$ : Continue looping 
0400 8F a 17C9 4629 100$:  POPR #*M<R10> ; Restore registers 
5 17CD 46350 RSB 
FEE be32 
eck ? § 3 Find BEA adjacency index to an endnode. 
17CE 4635 ° 
17CE te $ FIND_ENDNODE BEA: 
SA 6A AG 3C 617fE «6046 MOVZOL RCBSW MAX_RTG(R4) ,R10 ; Get starting BEA index 
20 11 17D2 4 3 BRB ; Start at NBRA+ 
56 2C B44A 00 17D te 5$: MOVL @RCBSL_PTR_ADJ(R4)CR10) R6 : Get ADJ address 
17 66 0 €1 1709 464 BBC #ADJSV—INUSE ADJ$B_STS(R6) &s ; Skip if not active 
EF 17DD 464 EXTZV #TR4$V“ADOR_AREA, - ; Get partner's area number 
55 04 Ab 17DF 464 #TR4$S~ADDR_AREA, ADJSW_PNA(R6) RS 
13 VER 464 BEQL 3; If area = 0, assume our area 
0088 C4 5 91 17€5 4644 CMPB R5,RCBSB_HOMEAREA(R4)  ; Our area? 
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1 P= AX/VMS Macro v04-00 Page 
Find least cost path g7S65 71383 83: 49; 33 ENETACE. SRCINETDLLTRN.MAR; 1 ° 
NEQ $ ; If not, skip this adjacency 
CMPZV) = #@TR4SV_ADDR_ 452 Does this BEA correspond to the node? 
#TRGSSTADDR- DEST -ADJ$W_PNA(RO) , RB 

Bea, $ : f so, exit with R10 = BEA index 

MOV wt RCBSW_MAX_ADJ(R4) ,R6 ; Get index ° AT}; BEA 

AOBLE R10,5$ : boop § thru LBEAs 

CLRL. =—_-R10 i { EA not found, skip this path 

; (& this erg A 7 Bact 
feit R10 3; Return with P 
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atalink control Layer 1 
- Update area forwarding d 


i -SBTTL AREA_DECISION = Update area forwarding database | 
3 AREA_DECISION = Update the area routing and forwarding databases. | 


sc i 


-SEP-1984 01:21: AX/VMS Macro Vv04-00 P 1 
tT oets 83:93:38 NETACP.SRCIJNETDLLTRN.MAR; 1 _ ( 
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1 = Address of last entry+1 of AOA vector 

0 = Address of last entry+1 of min. cost/hops buffer 
Ending address corresponding to Last ott in vectors 

X_COST = Maximum cost value allowed for routing database 

X_HOPS = Maximum hops value allowed for routing database 


: OUTPUTS: None 

; ALL registers are destroyed. 
AREA_DECISION: 

MOVL NETSGL_PTR_VCB,R4 ; Get RCB address 

BRW 100$ 3; Advance to the end of the loop 


: Determine least cost path to this node 
108: &sBw FIND_PATH_TO_AREA ; Find hops, costs, and adjacency 


: If the cost or hops to this node exceeds our maximums, 
3 then declare the node unreachable. 


: CMPB R1 ,MAX_HOPS :; Is the node within range? 
4 BGTRU 308 : If GTRU then no 

5 CMPW Re MAX_COST ; Is the node within range? 
$ BLEQU 40s : If LEQU then yes 
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783: CLRL 3; Node is unreachable 
; Build the packed cost/hops field 


SSUME TR3V_RT COST EQ 0 
OA 51 F0 NSV R1,#TR3V_RT_HOPS ,- 
$s 
I 


52.05 
52 8000 8F AA 


#TR3S_RT-HOPS Re : merge hops/cost 

SUME TR3S_RT Rops+fR S_RT_cost €a 15 
Cw #*X<8000>,R ; The high bit must be zero (Transport 
469 3: architectural requirement) 
9 3 If the area is now unreachable, then force the cost and hops 

3 (te infinity, so that our neighbors realize the area is down now 
; (they might have a higher maxcost, and wouldn't realize the 
3 area is unreachable until much Later). 


0 

1 
50 § TSTL OR : Is the node reachable? 
5 


5 NEQ 
527 FFF BF p 


558 not, 
MOVZWL 9 #*X<7FFF>,R2 3; then make cost/hops infinite 


Send routing msg only if MINCOST or MINHOPS have changed. If 
there has been a change in the node's reachability then record 
this fact so that it can be sent to the event logger. 


ASSUME TR3S_RT_HOPS+TR3S_RT_COST EQ 15 
BICW #*X<8000>,-(R11) : Ignore high bit 


55$: 
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CMPW R2,(R11) Was there a hops or cost change ? 
en no 


tor 
Compute SRM bit for this node 
Get number of circuits 
; Get LPD address 
Branch if slot not valid 
$ ; Branch if circuit not up 
JSV_RTG check to save time) 


BEQL ; If EQL th 

CMP RZ, A*X<7FFFD> : Is node currently unreachable? 

BGEQU 3; If GEQU yes, reachability change 

CMPW R11) ,@°X<7FFFD> ; Was node unreachable before? 

BLSSU : If +4 no, no rqachadt > tty change 
SETBIT RB,REACH_EVT : Indicate change in reachability status 
MOVW 3 Update the ve 


ASHL #=-LPDSC_ASRM SHFT.RB.RI 
MOVZBL acoso MAX_LPB(R4),R 
MOVL  a@RCBSC_PTR_LPD(R4SCR2],R3 
BGEQ 65$ : 
BBC #LPDSV_RUN,LPDSW_STS(R3).6 


: (skip AD 
SETBIT Bi ALCS Amn 3; Set SRM flag 
SOBGTR R2,60$ ; Loop through all circuits 
; Update the AOA (area output adjacency) vector. 
MOovw RO,-(R10) Update output adjacency to node 
SOBGTR oop for each node address 


R81 
MOVW #LPDS$C_LOC_INX,-(R10) 3 Use “‘local"’ adjacency for node 0 
CLRW = =(R11) : 


; Log an event for each node whose reachability status has changed. 


ore #NUM_AREAS~1,R8 


1, Setup max area address 
RE.REACH_EVT 2108 


; If BS then reachability change 
Save node address 
° oor to common event WQE 
e 

f( : Setup the area address 

# C_T TS Assume node is now reachable 

wOE$B Evi_B11(R5 

TSTW @RCBSC_PTR_AOA(R 

If NEQ then y B 
Ss Signal ‘‘unreachable 


Setup ‘‘area reachability change’ 
BSBW 3=s- NETSEVT_IRNTRAW Log the event 

POPL ; Restore node address 

SOBGTR R8,200$ ; Loop for each node 


RSB ; Exit 


R : 

) 3 

4)CR8] ; Is node now reachable? 
3 es 

U 3 

) : 
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TOLLTRN - Routing & Datalink control Layer 16-SEP-1984 01:21: AX/VMS Macro V04-00 Page 11 
WOuebb0 FIND-PATH_T0_AREA - Find least Yost path oe 83:43:32 ENETACP. SREINETDLLTRN.MAR; 1 . (33) 
! Be 2 se -SBTTL FIND_PATH_TO_AREA = Find Least cost path to area 
p 4f : ; fIND_PATH_TO_AREA = Find least cost path to area 
18BD 4765 : Inputs: R8 = Area address 
! 4 sre? s R4 = RCB address 
188D 47 8 : Outputs: R1 = Number of hops to area 
1880 $78 3 Re = Cost to area 
} =. oo09 5 RO = New ADJ index of path to area 
188D 4772: R4 is preserved. 
18B8D 1358 :- 
188D 4774 FIND_PATH_TO_AREA: 
0400 8F 88 188D 4775 POSHR AM<R10> : Save registers 
0088 C4 38 7} : ‘) £r76 ce R8,RCBSB_HOMEAREA(R4) ; Is this the local area ? 
3 so, 
50 4 9A 1 8 4778 MOVZBL #LPDSC_LOC_INX,RO ; Setup index for ‘local’ adjacency 
1 7C 18CB 4779 CLRQ RI : Zero cost, hops 
008A = 31 ’ cB cre BRwW 100$ 3 and exit 
57 01 400 1800 47 ¢ 5$: MOVL #1,R7 3: Init ed} aconcy index 
50 D4 18D $78 CLRL RO 3; Assume unreachable 
51 O01 CE 1805 4784 MNEGL #1,R1 3; Init min hops value to infinity 
3 01 CE 1808 4785 MNEGL #1,R2 : Init min cost value to infinity 
59  O00001A88'EF47 rt 1808 47 $ 7$: MOVL NE TSAL_AREA_CHCR73,R9 : Point to cost/hops buffer 
6D 1 1 es 47 BEQL 20$ 3; Skip if none for this circuit 
5A 657 g° 18€5 4788 MOVL R7,R10 3; Remember ADJ index for this path 
59 6948 E : 4; 2783 MOVAW (R9)CR8I,R9 ; Point to entry for this area 
ise 4791 : Get the cost/hops for this area over this adjacency, 
18EC £738 : and increase it by the nop for ourself. Also compute 
! 45 $232 3 the new cost for this path. 
56 2C B447 D0 18EC 4795 MOVL @RCBSL_PTR_ADJ(R4)CR7].R6 ; Get address of ADJ block 
56 02 A6 QA 18F1 4796 MOVZBL ADJ$B8_CPD_INX(R6) ,R6 ; Get LPD index 
56 28 8446 00 18F5 4797 @RCBSC_PTR_LPD(R4SCR6J,R6 ; Get address of LPD 
56 29 06 QA | 43 $798 MOVZBL LPD$B_COSTTR6) .R6 3; Get cost for this circuit 
18FE 4800 ASSUME TR3V_RT_COST €0Q 
Fe é 1 ASSUME TR3S"RT“COST £0 1 
53 69 £600 gf ne 18FE 4 5 BICW3 #*X<FCOO>,(R9),R3 3; Get the cost value 
5 § AO 1 4804 ADDW R6,R3 3; Add in the circuit's cost 
49 1D 1907 4805 BVS 20$ : If VS then cost is infinite 
53 O2FF 8F B1 1909 4 $ CMPW #*°X<2FF>,R3 3; Has cost overflowed allowed Limit? 
42 «OF 133 2 BLSSU 208 ; If LSSU then yes, it’s not a minimum 
1910 4 } : For a broadcast circuit, the cost/hops buffer contains 
1910 4 19 ; = tthe state of all endnodes on that broadcast circuit. 
1910 481 : So, if the area is “‘reachable’’ over the broadcast circuit, 
1910 4 1 ; then we have found the shortest path (by definition), 
13 2 17 ; and return success immediately. 
5C AS) o5S7——«1'—«*d92910 «4815 tmpp R7,RCBSB_MAX_LPD(R4) 3 Is this a main LPD adjacency? 
OF 1A 19146 & 16 BGTRU - Branch if no 
56 288447 DO 1916 481 MOVL @RCBSL_PTR_LPD(R4)CR7].R6 ; Get LPD address 


TOLLTRN = Routin Datal Ving ontrol la B SEP-1 AX/VMS Macro v04-00 Page 114 
V5a-000 FIND-PATALS TO_AREA oF ffa least ir, path : “SEP=1 1982 83: 99 33 ENETACP. SR SRC NE TDLLTRN. MAR; 1 . (53) 
05 22 A6 OA 1 1918 481 BBC #LPD$v_BC be SER STS(R6), ae { Srangh if not erogecess circuit 
FEAB 9 1 4 BSBW BIND. ERDNODE s BEA inde 
2D ! 2 15$ BEQL : a ‘¢ not found (8& unlikely) 
19 4 : Check to see if this path is “less cost’’ than the previous 
19 4 : mum cost. If so, remember this path as the best one. 
13 : : ; Use the node address of the adjacent node as a tiebreaker. 
52 ; B1 1 4 $ CMPw = saR3R2 3 Is cost value a new minumum ? 
1A 1928 4 BGTRU § : If GEQU then no 
1 1F 192A & BLSSU $ If AS oe then yes 
56 3¢ B447 v0 13 ‘ 4 MOVL aRCBSL PTR R_ADJ(RG} ER7], Re ; Get address of new ADJ 
C 8440 00 1 4 MOVL acest (R4)LROJ,R Get address of old ADJ 
04 a5 04 Ag B1 1936 4 CMP tyr W LBNACRE) ) ,ADJ$W_PNA NACRES Highest adj. node address 
1 1B 19 4 § BLEQU ; is’ the tiebrea er for equal costs 
A €F 1930 4833 188:  EXTZV aTREV.R _RT_HOPS,- 
55 69 2 193F 4834 #TR S-RTTHOPS. (ROD -RS ; Get the hops value 
96 1942 4835 INCB R ; Add in the hop to the adjacent node 
1F 5 91 1944 4 § CMPB RS ,A*X<1F> ; Has the max hops overflowed ? 
09 1A 1947 & BcTRU 20$ : If LSSU then yes, it’s not a minimum 
52 53 B0 1949 4 MOVW R3,R2 3; Save new minimum cost to area 
51 55 90 194C 4 MOVB R5 Ae 3; Save hops to area 
50 SA g° 194F 4840 MOVL R10,R ; Save output ADJ index for path 
53 6A AG | 1952 4841 208: MOVZWL ncBdV ma MAX_RTG(R4) RS ; Get number of routing adjacencies 
8157 53 F3 1956 re | AOBLEQ 3; Loop until done 
0400 BF BA 195A 484 100$:  POPR PEP PT A ; Restore registers 
05 195E 4844 RSB 
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-SBTTL UPD NEIGHBORS - Schedule routing messages 
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138 taco 
: . : rh: 3 UPD NEIGHBORS = Schedule routing messages for neighboring nodes 
13 : 2 3 Schedule routing message transmission on all routing and broadcast LPD's. 
1? : 2 : Inputs: None 
19 pif 4 ; OUTPUTS: None 
13 F 4 $ ; RO-R2 are destroyed. 
SO hah eee Sot tao 
° : Save registers 
54 00000000°EF BO 1963 4860 MOVL NETSGL PTR VCB_R4 : Get RCB address 
196A 4861 SDISPATCH RCBSB_ETY(R4S , TYPE=B,<- ; If we are an endnode, 
196A 4 66 <ADJSC_PTY_PH4N,200$>,=- 3; never send rtg messages 
12eA 486 <ADJ$C_PTY_PH3N,200$>> 
conen099 "Er 18 197A 4864 JSB NETSGET_RTG3 ; Get routing info 
0 3 19 4865 BL R : Branch if error 
58 SC AG 1983 4866 MOVZBL RCBSB_MAX_LPD(R4) ,RB ; Get number of circuits 
3 1 19 486 BNEQ 110$ : If nonzero, then go ahead 
0098 3 Ps +4 ? re: 9$: 200$ ; Skip entire thing 
it 2 79 : Schedule routing message transmission on all routing LPDs 
56 28 B44 00 198C 4 es 110$:  MOVL OR CBSL _PTR_LPD(RG) (ABI RG ; Get address of LPD 
1 18 1991 487 BGEQ 113$ ; Branch if slot not valid 
Of 22 a6 «60046—CiCE—s«*d1:989 $a78 BBC #LPDSV_RUN,LPDSW_STS(R6),113$ ; Br if LPD’s circuit inactive 
7. 2C B448 DO 1998 4875 MOVL @RCBSL-PTR_ADJ(RZ)CRB],R? ; Get address of ADJ block 
07 38 ag oA EO 1990 $578 BBS #LPOSV_BC,,LPDSW STS(ROS,115$ :; If broadcast circuit 
6 § f° 19A2 487 BBS #ADJSV-RTG ADJSB_STS(R75,115$ ; or if rove tag node, go ahead 
007 1 Se ? a 113$: BRW 130$ ; Else, skip this LPD entirely 
1349 ? ; Send area routing messages to adjacent area routers 
1909 48 j ASSUME LPDSC_ASRM_SIZE EQ 1 ; 88 fix this 
03 OO8A C4 91 1949 4 115$: CMPB RCBSE_ETY CRS) ,#ADJSC_PTY_AREA ; Are we an area router? 
5 is 19AE 4884 BNEQ 117$ 3; If not, skip this 
06 $8 A6 A 3 1980 4885 BBS #LPOSV_BC, ,LPDSW_STS(R6) ,116$ 3: Skip check if broadcast circuit 
1 A7 1 1985 4 § CMPB ADJ$B_PTYBE(R7) /#ADJSC_PTY_AREA : Is the nerenees an area rtr? 
21 12 1989 4 BNEQ ; If not, skip it 
SE A6 3205 «641988 4 1168: TSTL bP RS6_ASRACRO) ; Any area stuff to send? 
1¢ 13 19BE 4 BEQL 1 : Branch if not 
06 E2 1900 4 BBSS #LPOSV_XMT_ART,- ; Flag need to send area rtg msg 
C 24 Ab 19C2 4891 LPDS$B_RMTFCG(RG) 1188 - and defer if already in progress 
62 a6 5E AB «00 «19C5 «(489 MOVL §_ LPDSG"ASRM(R6) ,LPDSG_XMT_ASRM(R6S ; Copy SRM flags for transmission 
E D4 19CA 489 CLRL LPD$G_ASRM(R6) ; and clear primary flags 
4A6 96 19(0D 4894 INCB LPD$B_ASRM_POS(R6) ; Make sure we don’t start at the 
1900 4895 3; same place in the bitmask each tim 
1900 489 3; (to prevent goprens loss repetitio 
01 90 1900 489 MOVB #LPDSC_ASRM_SIZE,- ; Set number of bits to check 
55 A 1902 4 38 LPDSB ASRM_CEFT (RO) 
50 1904 489 MOVL #LEVSC_NO_EVT,RO : Setup event 
F3 i 1307 £39 BsBl sft OLC_EVT ; Schedule LPD activity 
190C 4902 117$ CLRBIT #LPOSV_XMT_ART,LPDSB_XMTFLG(R6) ; Do not send level 2 msgs 
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TOLLTRN = Routing & Datalink control layer -SEP-1984 01:21: AX/VMS Macro v04-00 Page 116 NI 
Yoaeb00 UPD NEIGHBORS = Schedule rout ng message $78 Pa} 986 83:45:38 NETACP.SRCIJNETDLLTRN.MAR; 1 ° (54) vi 
138) 4903 H 
} 4 23 ¢ ; Send level 1 routing messages to adjacent level 1 routers 
OF 22 A6 A €0 1981 rs $ 1188: 685 #LPDSV_BC,,LPDSW_STS(R6),119$ ; Skip check if broadcast circuit 
A EF 4 £6 49 EXTZV #TROSVADOR_ARE * ; Get area of partner node 
51 04 a7 13 49 #TR4$SS-ADDR_AREA, ADJ$W_PNA(R7) ,RI 
13 19EC 49 BEQL 119 :; If area = 0, assume our area 
0088 C4 } 4 19E $3) CMPB R1,RCBSB_HOMEAREA(R4) :; In our area 
12 19F3 491 BNEQ 126 ; If not, don't send Level 1 msg 
19F 1318 119$: ASSUME LPDSC_SRM_SIZE EQ 32 
56 AG «60DS OCO19FS) «491 TSTL LPDSG_SRATRO) 3 Anything to send? 
if 13° 19F {gle BEQL ; Branch if not 
0 E2 19FA 491 BBSS #LPDSV_XMT_RT,- 3; Flag need 9 send routing msg 
D A6 19FC ta19 LPo$ss XMTFLG(R6) , 130$ ; and defer if already in progress 
SA A6 6A6 DO I19FF 491 MOVL LPDSG_SRM(R6) .LPDSG_XMT_SRM(R6) ; Copy SRM riage for transmission 
A6 D& 1A04 $318 CLRL LPD$G_SRM(R6) 3; and clear pr mary flags 
A6 96 1A07 491 INCB LPD$B_SRM_POS(R6) ; Make sure we don't start at the 
1A0A 4920 ; same place in the bitmask each tim 
1A0A 4921 3; (to prevent sepren loss repetitio 
20 90 1A0A 49 ; MOVB #LPOSC_SRM_SIZE,- ; Set number of bits to check 
53 A6 1A0C 49 LPD$B_SRM_CEFT(R6) 
50 0 8 1AQE 4924 MOVL #LEVSC_NO-EVT,RO 3 Setup event 
F34 1A11 4925 BSBW SET OLC_EQT 3; Schedule LPD activity 
34 10 1A14 49 § BSBB START_XRT ; Reset routing update timer 
06 «11 ae 49 BRB 130$ 3; Continue 
: _XMT_RT, $ 3 need for routing msg 
iAie re 4 120$ CLRBIT LPDSV_XMT_RT,LPDS$B_XMTFLG(R6) No d f i 
02 38 F5 AIC 4930 130$:  SOBGTR R8,140$ ; Loop for all LPDs 
03 17 «AIF 4931 BRB 206$ ; Exit when loop completes 
FF68 8311 A re 4 $ 140$: BRW 110$ :; Continue looping 
01D0 8F BA 1A24 4934 200$: POPR #*M<R4,R6,R7,RB> ; Restore registers 
05 1A28 4935 RSB 
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TOLLTRN = Routing & Datalink control layer -SEP-1984 01:21: AX/VMS Macro v04-00 Page 117 
yoaeb00 TIMER-KRT = Automatic routing updete tim SaSePatoee G2:7a.3s PALTNES Bac tG vOF OO mans ase H2Z, 
JA a3 a ~-SBTTL TIMER_XRT = Automatic routing update timer 
1A 4 : ; TIMER_XRT = Routing update timer has expired 
i: 2 2 ; Inputs: RS = WQE address 
1A 4943 : Outputs: None 
1459 49442 
1A 4 4945 ; The WQE is deallocated. 
1A re to 
1A29 494 TIMER_XRT: : Entered when the routing timer fires 
58 112A 1Ae9 $308 MOVZWL WQESW_REQIDT(RS),R8S 3 Get LPD index 
32 1A 494 BSBW KILL_QQE ; Deallocate the timer block 
1 3 1A $329 BSBW ~¥ FINO.LPD 3 Locate LPD 
13 50 € - 2 $82) BLBC RO,90 : If not found, just go away 
1A36 1938 $ Set all bits in the SRM bitmask for this circuit, so that 
1A36 4954 ; when it comes time to update the neighbor, a complete update 
1A ? $322 ; will be sent for all nodes. 
1A36 4989 ASSUME LPDSC_SRM_SIZE EQ 32 
56 AG 0 «6001)—CtC«CCE:C#éSA36& «4958 MNEGL #1,LPO$G_SRM(R6) 3 Force rtginfo for all nodes to be sent 
1A3A 4959 ASSUME LPOSC_ASRM SIZE EQ 1 : && fix this 
5EA6 «6(01—Cés‘CC 1A : £360 MNEGL #1,LPBSG_ASRM(R6) ; Force rtginfo for all areas to be sent 
1A3SE 496 : $end routing messages to all our neighbors which have the SRM 
1A3SE 496 ;  =©flags set, as we have done above. If the decision algorithm 
1ASE 4964 : is scheduled to be run soon, then don't send the messages now, 
1A3E 4965 3 since they may be out-of-date. Instead, we rely on the fact 
1A3E 496 : that rout ng messages are automatically sent to all our neighbors 
1A ; rhe ; after the algorithm is run. 
03 00000040°EF 00 £0 1A3E 4969 aes #RTG_V_RUS,RTIGFLG,90$ ; If decision pending msgs will 
1A46 4970 3; be sent automatica ly after it runs 
FFI16 «830 1A46 4971 BSBW UPD_NEIGHBORS ; Else, explicitly send the messages 
05 1A49 4972 90$: RSB 
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re é te -SBTTL Start automatic routing update timer 
1 ? 1 : START_XRT = Start or reset the automatic routing update timer 
1A4A 4 A: : Inputs: 
1AGA 4979; 
1h re ? : R6 = LPD address 
1AGA 49 : : Outputs: 
AGA & 3 
Ak Gg toe 
~ ‘3 § : RO-R3 are destroyed. 
1AGA 49 8 START_XRT: stort routing update timer for LPD 
OFF, 1A6A 49 PUSHR #*M<R4,R5,R6,R7 RB.R9.RIO,R ; Save registers 
KS D TAGE 49 6 MOVL NETSGL_CNR_LNI,R11 "Ger LNI root 
st 1) 1 499 MOVL NETSGL_ STR 1,R10 LNI CNF 
A €0 1A5C 499¢ BBS #LPD$V— 386. pp Si W_STS(R6), iost ; Branch if broadcast circuit 
07 11 Hye rh Zeer rus init .Ftt, RG ; Use non-broadcast routing timer 
1Aga 1998 19s SCNFFLD Lni,l,brt,R : Use broadcast routing timer 
€58c' 30 1A71 4996 2 BSB CNFS rr itep ; Get the routing timer value 
1A 5 9 1A74 499 BLBC 4 3; No timer if parameter not set 
51 2006 1 8 1A77 4998 ASHL = #18, hose PTH(RG) RI: Shift LPD index into REQIDT 
51 0202 8F B80 1A7C 499 MOV #<<WOESC_GUAL_RTG>@8>!- : Set routing update timer i.d. 
1A81 00 Ti} TID, ART. : into lower word 
52 AS AF 9E a3 01 MOVAB B*TIM ; Setup action routine 
53 00 58 00989680 8F 7A 1A85 f £ #101 601000. RB, #0,R3 : Convert to standard VMS time 
3 F* 30 1A8E 0 BSBW WAP SRE eset the routing update timer 
OFFO 8F BA 1a31 04 90$ POPR “WRG .RSTRO,R7,RB_RI-RIO, Riis ; Restore registers 
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-SBTTL ENDNODE_DECISION = Endnode decision algorithm 
;  ENDNODE DECISION = Endnode decision algorithm 


yoseb00"™ ENDNOBE BEC ISTO 


1A9 


ca 


: this routine is —— ~ time we want to run the decision algorithm 
; and we are an endnode. simply ensures that the cost/hops to ourselves 
is zero, and chooses the” least cost circwit as the ‘‘designated output 
; adjacenc cy’ 
; Inputs: 

R4 = RCB address 
; Outputs: 

None 

Registers RO-R3, R5-R8 are destroyed. 

NDNODE DECISION: 
$ Ensure that the cost/hops to ourselves is elweys 0. 


€xtzv #TR4SV_ADOR_DEST,- t the local node number 
#TR4$S_ADDR-DEST .RCBSW_ aborts RO 


> Be Ge Se Ge Se Ge Se Ge Se Se Se Se Se Se Sete Se 


00 «CEFF 
50 OE A4 oA 


WOWOODOOVOOOOOOOOOOOOOOOOOOOO 


PWNS OV D COV BD COMMS 9 SET CODA PAPA AAA A AAA A AO oO 


>>>r>r>rrrrrrrrrrrrrrr>r?rrrrrr 


DD NAD NAA E EEE EE EE EE ANNAN AN AAA AIUD BS SSS AOSS Se 


ee a a a ee ee ee me ee ee ae ee a a a dd dd od ed 
SOOSOSCSOOCOSOOOCOOCOSOOOOOOC OOOO OC COO OOOOOOOOOOOOOOOOOoOSO “GW 
NAME WO OD NAME WIN OS OD NAUN EWN 9 ODNOAUE WI O ODNOUE UW OUOON 

@ 

m 

o 

sae 


a ah ah dh dh hh db cb db dch dhcp dich icici dich dich “dich “ich dich hh edhe sch = cic “ich dich dich -chdh dud dh diy dia tach dad hd =p “iy “ich “lich ich addy =p 


1 13 10$ zero, then skip it 
Q0000100°EF4O B84 CLRW NETSAW RIN C_HCROJ : Zero, our own entry 
00 EF IAA EXTZV #TR4$V_ADDOR_BEST,- : Get the alias node number 
50 008D C4 OA AA #TR4$S— “ADDR “DEST, -RCBSW_ ALIAS(RG) GR RO 
07 +13 = 1AA BEQL 10$ : If zero, then skip it 
00000100°EF4O0 B84 “ 108 CLRW NETSAW_MIN_C_HCROJ ; Zero our own entry 
{ AB ; Choose the least cost monde as the ‘designated output 
S : circuit’. 
52 3 CE 1AB MNEGL #1,R2 3; Init R2 to least cost so far 
? D4 1AB LRL R : Init R35 to least cost DRT so far 
58 9A 1AB MOVZBL RCBS$B_MAX_LPD(R4),R8 Get # circuits 
56 28° re} 09 AB 20$: MOVL  aRCBSC_PTR_LPD(R4SCR8), Rb ; Get address of LPD 
18 18 1AC BGEQ $ : branch if slot not valid 
01 5 D1 AC CMPL 8 #LPDSC_LOC_INX : Loca ? 
13° 13 =«1AC BEQL =: 308 kip the. local LPD 
OE $8 A6 = 04 5 AC BBC #LPD$V_RUN tty STS(R6) <3 $; if inactive 
29 A 1 1AC CMPB PD$B_COST(R6 : teake’ cost circuit? 
1—€ AD BGEQU : If not, keep looking 
3¢ 3 A6 a AD MOVZBL LPDSB_COST(R6) ,R2 : Save new least cost value 
CA AD MOVZWL LPD Swe DRT(R6) -R3 ; Save new least fost de designated router 
: F AD 30$: SOBGTR “t-ére 3; Loop thru al rcuit 
OOAA C4 8 AE MOVW R35, RCBSW_DRT(R4) : Set DRT for aut outgoing transmits 
05 “ ae 3 with an unspecified circuit 
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se 


sch" it 


ze 


P = En 
1AE 59 -SBTTL ACT_ENT_MOP = Enter MOP state 
1AE * x 
is : ACT_ENT_MOP = Circuit has entered MOP mode while in the ‘run’ state 
1AE : This routine is called when a it is detected that the circuit has entered 
1AE 64 ; the so called ‘maintenance mode’ -- also known as the ‘'service mode’’. 
1s 2 ; An NML process is created to service the circuit. 
1AE $ : INPUTS: R11 CRI CNR ptr 
1AE 8 3 R10 CRI ne ptr 
1AE $ 3 R LPD p 
1AES 9 3 R WQeE + 
ince : R4 RCB address 
1AE6 og : OUTPUTS: RS Unchanged 
1AE® 74; R1 Next event to be processed 
1AE 075 ; RO Low bit set if state change is permitted, 
ee 6 3 Low bit clear to avoid state change 
TAEG 28 : ALL other regs may be clobbered. 
tae tt Act ENT MOP: ; Put the circuit into a service substate 
ince B88 : Notify the DLE module 
E517" 30 1AE8 O84 BSBwW DLESMOP_REQUEST 3; Handle ‘MOP mode’ condition 
153 O86 : Recycle the circuit 
51 11 DO 1AE9 O8s MOVL #LEVSC_LIN_DOWN,R1 : Switch to Line down event 
50 01 DO 1AEC 23 9 MOVL #1,R0 3; Make state change 
0S 1AEF 090 RSB 
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82:99:25 ENETACE. SREINEYDLLTRN.MaR;1 29° (89) 


This routine is called after datalink protocol initialization. It chooses 


Sa if the operator state is ‘‘off'’ then the circuit is undergoing restart 


own. In this 


nge is pre-empted with the LEVSC_OPR_OFF event. 
2. Else, if the circuit substate is ‘’service’’ then the routine pre-empts 


3. Else, the LPO is prepared to commence Transport layer initialization 


state change is permitted, 


Low bit clear to avoid state change 


3; The datalink has initialized 
3; Save ADJ address 


“off'' then we are going thru data-Link 
: re-init as a means to notify the opposite end of the circuit that 


; Get the operator state 
: If LBC then the same as ‘‘off'’ 
; Case on operator state 


:; Generate ‘‘operator says off'* event 
; Prevent previously intended state 
3 transition 

3; Take common exit 


to a direct-access server process. 


+ Me TRN ~ ate & Datalink control layer 16-SEP-1984 
Vv ACT_DLL_UP = Datalink has initialized “~SEP-1984 
im 2 a -SBTTL ACT_DLL_UP = Datalink has initialized 
AF 34 ; ACT_DLL_UP = The datalink has initialized 
1AF 9 : 
1AF 39 ; one of three actions to take: 
1AF 4 : 
iarO 8400 
1AF 101 : n order to notify the partner node that it is shuttin 
1AF 1 § 3 case, the state cha 
1AO 8104 
TAF ; the state change and exits with the LEVSC_ENT_DLE event. 
1AFO 5107 : 
1AF 108 ; over the circuit. 
1ard 8110 | 
1AFO 5111 : “INPUTS: R11 CRI CNR ptr 
1AFO \\6 3 R10 CRI CNF ptr 
1AFO 5113; R9-RB Scratch 
1AFO 5114; R7 ADJ address 
1AFO 5115; RG LPD address 
me 118 3 R WQE address 
1AF 117 ; R4 RCB address 
inne 118 3 R3-RO Scratch 
1AFO 5120 : ouTPuTS: RS-R7 —— Preserved 
1AFO 5121; R1 Next event to be processed 
1AFO 51 § $ RO Low bit set if 
1ard 815% 
a 2! 5 ; ALL other regs may be clobbered. 
1AFO (51 5 ACT_DLL_uP: 
57 oD i ! 8 PUSHL R7 
~ 31 ’ : If the operator state is 
~ 2) § : =the Link is shutting down. 
OA 50 €9 IAFF 8138 SCETFLD crit ste 
1802 51 6 SDISPATCH Rb, <- 
180 1 <NMASC_STATE_OFF, 10$>,- 
18 1 8 <NMASC_STATE_SER, 5 $>,- 
Hy 1? ‘ <NMASC_STATE_ON, 0$>,- 
51 05 00 180C 124 10$: MOVL #LEVSC_OPR_OFF .RI 
0 04 1B0F 136 CLRL R 
1811 14 
65 11 1811 144 BRB 90$ 
18 102 208: : 
181 129 use by Transport, or give i 
181 148 


; The operator is not shutting down the circuit. Either init for 
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Vbe ACT DLL OP = Datalink has Tnittatized — SeSEPc19be O2:49z2% ENCTACE.RETNEYOLLSoaN.maRs1 29° 188) 
0¢ —1 181 149 BBC #LPDS$V_DLE,- ; If BS then marked for direct access 
07.22 A 1815 51 p LPDSW-STS(R6) , 308 ; (state could be ON or SERVICE) 
1 DO 6181 1 MOVL #LEVSC_ENT_DLE,R1 ; Generate new event 
D4 1818 51 § CLRL R 3; Prevent state change 
11 1810 ! z BRB 90$ ; Take common exit 
1B1F 5155 : The datalink jis undergoing anormal startup sequence. Tell 
ieir ! § ;  NETDORIVER about new LPD and schedule the Transport init messages. 
50 05 0 1BIF 138 30$:  MOVL = #NETUPDS DLL_ON,RO ; Setup function code 
1207 18 1 BSBW rely NETBRIVER ; Tell NETDRIVER 
18 AG «6296 «(18 160 INCB LPDSB_ASTCNT(R6) ; Account for Rcv_ IRP queued to the 
1. 19 ; datalink by NETDRIVER on our behalf 
18 188 : If we have been forced into Phase I! protocol, mark the 
18 164 ; adjacency as Phase I] now, so that the correct start msg 
18 192 ; is sent. 
oone 4 90 : a MOVE Roeser Rei 3; Preset ‘‘our node type’’ for circuit 
1B2E 199 SGETFLD cri, li xpt :; Circuit transport protocol 
1B3B 5170 BLBC =: RO, 508 : Branch if not set 
1B3— 5171 MOVL  (SP),R7 ; Restore ADJ address 
1B41 1% BSBB = XPT_fO_PTY ; Translate XPT to node type 
1863 ee, see MOVB R8,CPDSB_ETY(R6) ; Set ‘our node type’’ for circuit 
1B47 5175 ; If this is a broadcast circuit, then skip the start/verification 
1B47 5176 3 messages, and chain to another action routine, which will handle 
1067 ater ; broadcast circuit startup. 
1847 5179 BC #LPDSV_BC,.LPDSW_STS(R6),31$ ; Branch if not broadcast circuit 
1B4C 5180 MOVL SpeVSC OCP .Rt ; Generate new event 
1B4F 5181 CLRL R ; Prevent state change this time 
183) HIRE ous, HS 
1B53 5184 : > Schedule transmission of start/verification messages for a 
182 5 2 3  nmon-broadcast circuit. 
185 187 $GETFLD cri L,xpt ; Were we forced into a specific type? 
1860 188 MOVL (SPS,R7 : Restore ADJ address 
186 + 4 BLBS_ _—s_-RO,,3 ; If so, don't col ty at all. < 
1866 5190 SETBIT LPDSV_XMT_DALLY,- : Dally before sending ist ‘start 
1866 5191 LPDSB~XMTFLG(R6) ; so that we can adapt to remote node 
1B6A 136 32$: BISB #LPDSA_XMT_STR!- ; Schedule etare asg a 
1B6B 519 LPDSM_XMT_VRF !- ; Schedule ‘verification’ ms 
1B6B 5194 LPDSM_XMT_IDLE,- ; Flag to detect when last msg was sent 
1868 195 LPOSB-XMTFLG(R6) ; 
1095 199 > Enter “on-starting’’ state 
186 198 Move #NMASC Lines STA, : Enter “‘starting’’ substate 
1B 9 LPD B_SUB_STA(R6)  ; 
187 MOVL ay ey C_NO_EVT,R1 ; No more events 
187 § MOVB #1,R0 ; Allow state transition 
1878 90$: POPL R7 ; Restore ADJ address 
ire $305 oo 
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vo4-600 acto 


"4 & Datalink control lay 
P = Datalink has init 


Map TRANSPORT TYPE parameter to node type 
Inputs: 


Oooo 


R8& = Transport type parameter value 
Outputs: 
R8 


Corresponding node type (ADJSC_PTY_xxx) 


“PT _TO_PTY 

SDISPATCH RB,<- 
<NMA$C_CIRXPT 1 PH3 49 -408>, - ; Force Phase II init 
<NMASC_CIRXPT $>,- ; Force Phase III powe tag B. init 
<NMASC— 5 “NRG, ti335 : Force Phase IV endnode ini 


tk kk a a ts 
bosdestesTesDesdesTesTostesdesTocTostecTosTosTesTeclestosTecdestectesls +] > 
0000008 NN 


OODNAUL WI O ODNAUE WN OOONO 


DALAM VRKOOMOOOOOOOOOOOOOO 


ww 
PoPoPOROPONONONONNn) 2 2 2 SS 2 


58 FF or 7 poyeet. #ADJSC_PTY_UNR RS ; Unknown 
58 8 9 40$: aoe #ADJSC_PTY_PH2,R8 ; Phase II 
58 8 9 42$: poe #ADJSC_PTY_PH3,R8 ; Routing III 
58 05 90 44$: MOVB #ADJSC_PTY_PH4N,R8 ; Nonrouting IV 
05 48$: RSB 


DLE-related state changes SEP=-19 NETACP.SRCINETDLLTRN.MAR; 1 


i8 ‘ -SBTTL DLE-related state changes 
1B9A ; ACTLENT_DOLE = zeit server process Po circuit is ready 
1B9A 4 ; ACT_EXI_LSERV = Exit service state if needed 
1B9A 5 ; ACT_SYN_FAIL = The circuit failed to synchronize 
189A § : ACTLINI_LFAIL = 1/0 failure during Transport initialization. 
1B9A 8 3 INPUTS R11 CRI CNR ptr 
1B9A 3 R10 CRI CNF ptr 
1B9A 40 ; Re LPD ptr 
1B9A 41 ; R WQE address 
1B9A 42 ; R4 RCB address 
1B9A 4 
1B9A 44 ; OUTPUTS: R5 Unchanged 
1B9A 45 ; R1 Next event to be processed 
1B9A re r RO Low bit set if state change is permitted, 
2 ri ; Low bit clear to avoid state change 
a ‘3 ; ALL other regs may be clobbered. 
1B9A 51 ACT_ENT_DLE: : Tell server the circuit is — 
03 €0 1B9A : 26 BBS #LPDSV_ACCESS,=- :; If BS then circuit is accessed by 
1E 22 Ab 189¢ 33 LPDSW~STS(R6S ,40$ : server process 
1B9F : 55 ; The circuit is up (or at least the driver thinks so) but there is 
1B9F 5256 3 =o server process accessing the circuit. Queue a receive to the 
1B9F 5257 ; circuit. When the receive completes it will serve as a signal that 
1em 5 8 ; the remote end of the circuit is requesting service. 
51 03 1B9F 60 MOVZBL #LEVSC_UNJAM,R1 3; Assume some 1/0 is pending 
1B A695 1048 61 TSTB LPDSB_ASTCNT(R6) 3; Any other 1/0 — ? 
22 12 1BA é 6¢ NEQ 00$ : If NEQ yes, recycle the circuit 
51 80 8F 9A 1BA7 6 MOVZBL #128,R1 : Setup size of Pl buffer 
OFS 30 1BAB 5264 SBW NETSOLL_QI0 CO ; Call co-routine to init WOE 
Oo3sc'c2 § dO 1eAg : 65 MOVL R3,WQESC_LERGTH+P1(R2) ; Point to buffer 
0038'C2 80 8F 9A 18B 66 MOVZBL #128,WQESC_LENGTH+P2(R2): Setup buffer size 
50 00° DO 1889 5267 MOVL S*#10$_READLBLK,RO ; Setup 1/0 function 
05 = +3 5 $8 RSB ; Return to issue 1/0, and exit 
1BBD 70 : The circuit is already being accessed by a server process. Tell 
1BBD 71 ;  ~=6the circuit access module that the circuit is up and then tell 
to +4 i ; NETORIVER to start its receiver. 
0' 00 1BB 74 40$:  MOVL  $*#SS$_NORMAL,RO ; Indicate success 
E43)" 1BC 75 BSBW DLESLPD STATUS ; Tell DLE module of circuit transition 
51 90 4} 1BC 16 MOVL #LEV$C_RO_EVT,R1 ; No more events 
50 1 oO 1868 7 MOVL -RO 3; Allow state change 
05 + +34 4 100$:  RSB 
1BCA ; ACT_EXI_SERV: ; Exit service state if needed 
02 €1 1BCA BBC #LPO$V_DLE,- ; If not marked for direct-access then 
14 22 A 1BCC ¢ LPDSW~STS(R6) , 108 ; nothing to do 
EO 1BCF BBS #LPOSV_ACCESS,=- ; If currontiy being accessed then 
OF 22 A6 +4 : LPDSW"STS(R6S ,10$ : allow operation to complete 
1BD4 § BUG CHECK ee reps TATE ; @& What are we doing here?? 
1BD8 CLRBIT LPOSV_DLE,LPDSW_STS(R6) ; Else clear direct-access flag 
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4 
98 
9 
9 
9 
9 
9 
Q 
0 
0 
0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
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ACT_SYN_ 
BBC 


te B_CNT_IFL(R6) 


ACT_X25_ 
C 


o 
m 
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1382 93:94:32 ENETACE.. SREINEYDLLTRN. MAR: 1 ° (80) | 
; Chain to ‘request shutdown’’ event 
; Allow state change 
; No further events 
; Allow state change 


| 
| 


The circuit failed to synchronize 
If BC then circuit is not being ‘‘accessed’’ 
for direct-link sevice 

circuit no longer active’ 

Tell DLE module of circuit, transition 
Chain to ‘request shutdown'’ event 
Allow state change 


1/0 failure during transport init 
Increment circuit init failure count 
Signal ‘‘circuit down’ event 

Do not change state for this event 


; X.25 "'reset’’ 
; No Q10 buffer needed 
: Arte ate and init WQE (co-routine) 


) ; Set P4 to “reset confirmation” 
) ; Do nothing when 1/0 completes 
) ; Do ge if 1/0 fails 
on code 


; Issue 1/0 and exit 


GSVV——V—————V—3V—na—OoOoOoOoOororoOoOoOoeee 
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Wi ebO0 ACT RUN, BOWN, ACT_SET_OPER . $7 3EF=13 4 83:93:32 NETACP.SRCIJNETDLLTRN.MAR; 1 ’ (61) 
if 6 ‘ ~SBTTL ACT_RUN_DOWN, ACT_SET_OPER 
1¢ ; ACT_RUN_DOWN = Run down a circuit 
+ § : ACT_SET_OPER = Restart a stalled circuit 
1¢ 4 : INPUTS: R11 CRI CNR ptr 
1C $3 R10 CRI CNF ptr 
1C § 3 Re LPD ptr 
1c : R WQE address 
\t 8 $ R4 RCB address 
1C ? > OUTPUTS: RS Unchanged 
1C 3 Ri Next ‘event Longword’’ to be processed 
1C § : RO Low bit set if state change is permitted, 
if Z ; Low bit clear to avoid state change 
ie 5 : ALL other registers may be clobbered 
1025 $ ACT_FAILED: 
0B +490 1¢€25 8 MOVB #NMASC_LINSS_FAI,=- ; Mark outgoing call ‘failed’ 
27 Ab 1C27 5339 LPDSB SUB_STA(R6) ; (requiring operator intervention) 
51 00 00 1€29 40 MOVL #LEVSC_NO_EVT,R1 ; No more events 
50 01 oDO 1C2C 41 MOVL #1,R0 ; Allow state change (to S$ state) 
0 TES 8308 0s 
1€30 2 44 ACT_RUN_DOWN: ; Cancel all timers, etc. 
51 20 A6 =9A_ =1€30 45 MOVZBL LPDS$B_PTH_INX(R6) ,R1 ; Get LPD index 
51 51 10 78 1€34 5346 ASHL #16,RTR : Shift into upper word 
51 0100 8F 14 1038 5347 MOVW #WOESCQUAL_DLL@8,R1 ; Setup QUAL, zero EVT for cancel all 
E3CO" 30 1C€30 5348 BSBW WQESCARCEL_TIM : Cancel all timers for the LPD cell 
104 49 CLRBIT LPDSV_STRTIM,- ; Start suppression timer is no longer 
1€40 5350 LPDSW~STS(R6S : ticking 
1044 51 SGETFLD cri,l,sta 3; Get ‘‘operator’’ state 
05 50 €9 1C€51 2g BLBC RO, ; If LBC then assume OFF 
58 01 91 1€54 2 5 CMPB #NMASC_STATE_OFF ,R8 3: Is it OFF ? 
OF 12 ieee 33 108 BNEQ 50$ : If NEQ no 
1¢59 36 : : The operator is turning the Line off. 
1E 22. a6 603) «£1 «1659-5358 BBC #LPDSV_ACCESS, LPDSW_STS(R6),100$ ; If server process active, 
50 0000'8F i 1036 2 59 MOVZWL #SS$_DEVINACT,R : “circuit no longer active’ 
E39A° 30 16 60 BSBW DLESCPD_STATUS ; Tell DLE module of circuit transition 
11 ice 61 BRB 100$ 3; Continue 
1C6 8 : If the circuit substate has been marked ‘failed’ (as a 
1€6 64 : result of ‘maximum recalls’ exceeded), then do not allow. 
1€6 65 3 further circuit startup attempts until the operator explicitly 
18 $6 ; turns the circuit on (which clears substate). 
27 a6 «091—s«106 68 50$:  ¢mMPB  LPD$B_SUB_STA(R6),- : “failed” circuit? 
08 1€6B $ #@NMAST_LIASS_FAI 
OE 13 1C6C BEQL 100$ : If so, stay in this state 
Hee 4 ; until operator intervention 
1C6E 4 : The circuit is entering a stalled state waiting for a server 7 
Hi iS 3; «process to start some activity. Set a timer so that we don't wait 
3 or ever. 
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ACT_RUN_DOWN, ACT_SET_OPER 9:2 3 NETACP.SRCIJNETDLLTRN.MAR; 1 (61) 
1C6E 7 : 
53 00000000 seaneataas a 7D Ieee 5 mova rt 1 hh AN hace R3 ; Wait 60 seconds 
30 1C 8 BSBW SET_IOTIM 3; Start the timer 
3 "Ot DO 1C7C 79 100$: MOVL At C_EXIT,R1 ; No further events 
0 DO 1C7F 0 MOVL #i,R 3; Allow state transition 
05 iC 1 RSB 
rf § 
1C 4 ACT_SET_ peers 1088 ¥y J Pos Line 
08 22 A 3 1 1C 5 “BBC #LPDSV_ACCESS,.LPDSW_ stsche), server process active, 
0000' f 1¢ § MOVZWL #SS$_DEVINACT.RO : i: longer active 
ES 0° 1¢ B SBW ertets D STATUS : Tell “OLE module of circuit transition 
1C 8 100$: GETFLD cri,l,sta ; Get ‘‘operator’’ state 
51 ORF C® 8 9A 1C9 MOVZBL OPR ee _MAP(R8) ,R1 : Get corresponding event 
1 0 1CA 0 MOVL #i,R 3; Allow state change 
1CA 91 ; Process new even 


srk" it 


ng & Datalink control Laye -SEP-1984 AX/VMS Macro V04-00 P 1 
BL - Circuit acceptance Wer ecaen | “SEP-1984 zt $3; 93; 33 ENETACE. SRC INETDLLTRN.MAR; 1 ma (85) 


: Allocate and setup the buffer 


Sooo es 
PRE R EPR R PREP E ERE EEE PEEP E PEPPER EPP PPP PPP PPP PEPE 


BREESE PWWWWNII WWIII ROPOnoPofonononon 2 OD 


i 
T 
che $4 cs -SBTTL ACT_TST_DL = Circuit acceptance algorithm 
yr 32 : "act -TST_DL = Run circuit acceptance algorithm 
CA 38 3 INPUTS: R11 CRI CNR ptr 
CA 38 3 R10 CRI CNF ptr 
CA 99 ; R7 ADJ address 
CA 0; R LPD address 
CA ie R WQE address 
yA ¢ 3 R4 RCB address 
cag 4 ; OUTPUTS: R5-R7 = Preserved 
CA 5: R1 Next event to be processed 
CA6 $ 3 RO Low bit set if state change is permitted, 
4 4 ; Low bit clear to avoid state change 
che § ; ALL other regs may be clobbered. 
CA6 ACT_TST_OL: ; Run circuit acceptance algorithm 
OEOQA 30 1CA6 BSBW CHK_10 3 Okay to xmit? r . 
51 01 00 1CA9 MOVL #LEVSC_EXIT.R1 ; Assume we cannot xmit 
08 50 34 CAC BLBC R ; If LBC then no 
1A A695) «ICAF TSTB LPOSB_TSTCNT(R6) > Any test messages to xmit? 
07 1A 1CB2 BGTRU $ : If so, send one 
51 10 00 1CB4 MOVL #LEVSC_LIN_UP,R1 3 Signal circuit up event 
50 01 90 1CB7 10$: MOVB #1,R0 3; Always allow state change 
05 C RSB 
C 
C 
: 
51 83 8F 9A IC 20S: MOVZBL #14241+TR3C_TST_MAX,R1 : Setu max test size 
06 A7 51 81 CBF CMP R1,ADJ$W _BUFSIZTR7) : Too big? 
06 18 3 BLEQU § ; If LEQ then no 
51 06 A7 6 MOVZWL ADJ$W_BUFSIZ(R7),R1 : Use partner's rcv buf size 
58 51 04 § 9 30$: SUBL3 #1+2+T,R1,R ; Save size of test data field 
0E01 0 D BSBW NETSDLL_Q 6 co ; Call co-routine to allocate buffer 
RT: 53 00 9 MOVL 4 »WOESC_LENGTH+P1(R R3) ; Point to 1/0 buffer 
0038'C 2 & : MNEGL *WOESC” -LENGTH+P2(R2) ; Bias 1/0 buffer length 
; Build the message 
3.6COOB C9 A MOVB ernec MSG_NOP, ( Enter Phase I1 test neg. type code 
02 O1Aa7 91 D CMPB B -PIYPECRD) Brbuse Pty PH2 ; Phase 1 partne 
13 BEQL 4 ; If so, assumption ano A 


MOVB #TR3C_MSG_TST,-1(R3) : Partner is Phase III, replace type 
e goge with Phase III test msg type code 
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a 
0 €F 7 EXTZV #TR4$V_ADDR_DEST,- Get our address (without area) 
50 O08 AG OA 9 #TR4$S-ADDR—DEST .RCBSW nvethas" RO 
8 80 MOVW 4 oft Rar ; Enter source node address 
3 MOVB : Enter # of test data bytes 
4 PUSHR a cn? 4 .R5> ; Save regs 
63 58 AABF 6E 00 2 MOVCS oncepse #*X<AA>,RB,(R3) ; Enter test data 
4 C § POPR F Acee 4,R5> ; Restore regs 
1A As 7 F 447 40$ DECB = LPD$B_FSTENT(R6 ; Account for this test message 
0038" ¢2 ; C0 0 4 DDL R3,W iy! CENGTHOP2(R2) ; Setup buffer size 
0’ D 6 544 MOVL Rep 10 WRITELBLK,RO : Setup 1/0 Tos cane 
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05 1009 5450 RSB 3; Return to co-routine to xmit 
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al E 
19 . ? 4 -SBTTL ACT_ENT_RUN = Enter RUN state 
1p A 4 4 ; ACT_ENT_RUN = Enter the RUN state for a non-broadcast circuit 
1DOA 54 : + INPUTS R11 CRI CNR ptr 
1DOA 5457 ; 10 CRI CNF ptr 
1D0A 54 8 3 ADJ address 
1D0A 5459; R LPD address 
1D0A 5460 ; R WQE address 
1 2 rhe 3 RG RCB address 
1D0A oes : OUTPUTS: RS-R7—- Preserved 
1D0A 5464 ; R1 Next event to be processed 
1DOA 5465 ; RO Low bit set if state change is permitted, 
1D0k £88 3 Low bit clear to avoid state change 
1p A 468 : ALL other regs may be clobbered. 
1bOA 236 ACT_ENT_RUN: ; Enter RUN state 
04 €2 1D0A 5471 BBSS #LPD$V_RUN,- 3 
08 22 A6 1D0C 2078 LPDSW_STS(R6) 7$ ; Mark circuit as active for data msgs 
60 AS. «696 «SO 1DOF «= 5547 INCB RCBSB_ACT_DLL(R4) 3; Account for datalink 
5D AS 90 ig 474 MOVB RCBSB_MAX_SNK(R4) ,- 3; Init square root Limiter 
1E A6 101 475 LPDSB XMT_SRL(R6) 3 
oir $78 7$: SETBIT #ADJSO_RUN,ADJSB_STS(R7) ; Mark adjacency is up 
1018 5078 : Start Listen timer going, as long as this isn't a Phase II 
118 rt 4 : link (Phase II didn’t have any mandatory hello timer). 
02. «(01 a7 9 118 5 1 {pe ADJ$SB_PTYPE(R7) ,#ADJSC_PTY_PH2 ; If not Phase II Link, 
19 d 2 5 8s SETBIT #ADJSV_LSN,ADJSB_STS(R7) ; Start Listen timer going 
1025 5485 : : If the partner node is a endnode or a Phase II node, then init 
1025 54 $ : the cell in the cost/hops matrix associated with this node to 
1025 54 3 indicate that the node is Sirectly adjacent. This is because 
1025 Bs : we will never get ony other notification (such as a routing 
1025 5489 ; message) to update the cell. The actual cost will be correctly 
1 : rh 4 : computed when the decision algorithm is run. 
1025 136 $DISPATCH ADJ$B_PTYPE(R7) TYPE=B,<- ; Based on adjacency type 
1D 49 <ADJSC_PTY_PH2,10$>,-  : Phase II nodes 
1D 494 <ADJSC_PTY_PH5N,10$>,- ; Phase III endnodes 
1D 495 SARIS PTY PN $>> ; Phase IV endnodes 
35 «(11 3 2 rh BRB 40 : Else, skip it 
51 02 A7 QA 1036 £38 10$: MOVZBL a0 J88 LPD_INX(R7),R1 3; Get the circuit's index 
~ EF 1D3A 549 EXTZV #TR4$7_ADDR_AREA,- 3 Get arge address 
52 04 A7 1D 0 #TR4$S_ADDR_AREA, ADJS$W_PNA(R7) ,R 
1 13 1D4 1 BEQL 30$ : If area = 0, assume our area 
0088 C4 5 91 1D4 § CMPB R2,RCBSB_HOMEAREA(R4) =; Our area? 
OF 13 104 BEQL :; If so, set the right cost/hops 
51 OOOSTASS"EFS) 00 1989 : ot NETSAL_AREA_CHCR1],R1 : F9t eddress of oree cost/hops buffer 
orl * Ht $ iy (R1)CR2) : Set area cent/hees to “adjacent” 
00 EF 1D $ 8 308: EXTZV #TR4$V_ADDR_DEST,- ; Get node address within our area 
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ACT ENT. RUN - Enter RUN state et 7 93:93:32 ENETACE. SREINE DLLTRN.MAR; 1 . (63) 
52 Ss A7 OA 103A 09 #TR4$S_ADDR best ADJ$W_PNA(R7) ,R2 
51 00000980°EF4 0 1D 19 MOVL NETSAL_CH_VEC R15,R1 ; Get address of cost/hops buffer 
0 1 139 1 BEQL 4 : If none, skip it 
614 Rs 1D \§ CLRW (R1)CR2) : Set cost/hops word to ‘'adjacent"’ 
E292" 30 1D 13 40$ BSBW UPDATE_ALL 3; Re-run decision algorithm 
18 ; 1 ; and force routing msgs to be sent 
1p : 16 : Announce the circuit is up 
1D 18 $L0G TPL_LUP,,,R5 : Set ‘circuit up’’ event 
E287" 30 1075 2] BSBw NETSEVT_INTRAW 3 Log the event record 
107 5 ° : Start the automatic routing update timer, which causes 
1079 5 § ;  @ routing message to be sent on this circuit each tick. 
FCC 30 1079 ; 4 BsBw START_XRT ; Start routing timer 
51 0 DO 1D7C 5525 MOVL #LEVS$T_NO_EVT,R1 ; No more transitions 
50 01 90 1D7F 55 § MOVB #1,R0 ; Allow state change 
05 1082 55 RSB 
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UP = Bro 
1 9 P -SBTTL ACT_BC_UP = Broadcast datalink has initialized 
1 : ACT_BC_UP - Start broadcast circuit Transport initialization 
1D : Inputs: 
1D 4; 
1D $3 R11 = CRI CNR address 
1D § : R10 = CRI CNF address 
1D $ R7 = ADJ address 
1D 8 3 Re = LPD address 
1D 3 R5 = WQE address 
1 re : R4 = RCB address 
1 4 : Outputs: 
1D tz : R1 = Next event to be processed 
18 22 3 RO = True if state change allowed, false if not. 
D8 29 ACT_BC_UP: 
04 €E2 1D8 278 BBSS #LPDSV_RUN,- : 
08 22 A6 1D8 54 LPDSW_STS(R6),7$ ; Mark circuit as active for data msgs 
60 AS 896 1088 239 INCB RCBSB_ACT_DLL(R4) 3 Account for datalink 
5D AS «690 «=(1D8B «(5551 MOVB RCBS$B_MAX_SNK(R4),- ; Init square root Limiter 
1E A6 1D8E 33¢ LPDSB_XMT~SRL(R6) : 
183 $227 7$: SETBIT ADJSV_RTG,ADJ$B_STS(R7) ; Mark as routing adjacency 
109 555 : For broadcast circuits, preset the ‘‘partner buffer size’’ in 
1D9 228 ; =o the main adjacency to our own buffer size. This field will 
1D9 55 ; be updated to always contain the minimum buffer size of all 
199 328 3 =the BRAs on the circuit. 
50 ag BO 109 560 Movw LPoSY BUF Siz (RG 7 ; Preset partner buffer size to our 
06 A 103 28) ADJ$W_BUFSIZ(R7) 3; buffer size (main BC ADJ case) 
109 368 : Tell NETORIVER to send a Router/Endnode Hello message immediately 
50 0D 9A 1098 5565 MOVZBL M#NETUPDS_SEND_HELLO,RO ; Set function code 
OF8E 30 1008 206 BSBW TELL_NETBRIVER ; Call NETDRIVER to send hello msg 
1D9E 208 : Re-calculate the square root Limiters, to account for the 
943 383 : additional circuit now active. 
E25F* 30 1D9E 32 BsBW =——« UPDATE_ALL ; Update routing database 
hy 378 : Log a “circuit up’ event record. 
1DA1 5575 $L0G TPL_LUP,,.R5 3; Set “circuit up’® event 
E254" 30 Ha 278 BSBW NETSEVT_INTRAW 3; Log the event record 
1DAC 278 : If we are a router, start the “election suppression’’ timer to 
1DAC 2? 3 grepent our election from being resolved before we've had a chance 
Ht ar ? : o hear from everybody. 
05 1D A6 91 IDA § Cups PROS _ETY (RG) .ADISC_PTY PHAN ; Are we an endnode? 
51 2046 9A a i SBVOBL {PDSB_PTH_INX(RG).R1 : Ger 'chD inden” 
e Py x 
51 7 ; 1DB 585 ASHL #16,RT,R1- : Shift into upper word 
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VOa-000 ACT_BC_UP = adcast gotat ink Nas initi ~$Ep= 138 §3:49:38 NETACP.SRCIJNETDLLTRN.MAR; 1 ” (64) 
51 0118 8F B0 MOVW #<<WQESC_QUAL_DLL>@8>!=- ; Overlay QUAL and EVT fields 
Lev C"ELECT_TIM,R1 
52 EFBD . 3 Eaves we TsOUL RC LMGE /Re 3 Setup action routine address 
~ : r value 
53 00 00989680 8F Foe TOObe TRON WO AS 
Fe 0’ 8 BSBW WQESRESET TIM 3; Set the timer 
54 Q0000000'EF 0D MOVL NETSGL_PTR_VCB,R4 ; Recover RCB address 
SETBIT #LPOSV-ELECT_TIM,- : Mark suppression timer ticking 
LPDSW_STS(R6J 
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: Start the automatic routing update timer, which causes 
; a routing message to be sent on this circuit each tick. 


BsBwW = START_XRT ; Start routing timer 


; Notify DLE module that broadcast circuit is up, so that it 
3 can enable the ‘‘load/dump"’ and ‘‘loopback"’ protocol types. 


FC6B = 30 
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E21E" 3 6sBW DLESBC_UP : Enable service on circuit 
51 0 D MOVL #LEVSC_NO_EVT,R1 ; No more transitions 
50. 3=«(01 ys ae #1,R0 3; Allow state change 
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-SBTTL BRA_UP = Setup new adjacency for BRA 
BRA_UP = Setup new adjacency control block for broadcast router 


This routine is called when a broadcast router is heard from to 
allocate a new ADJ block and declare the node up. 


Inputs: 


R E— address 

B address 

LEV_W_PNA = Address of node which sent message 

LEV_B_PRIORITY = BRA‘s router priority (0 if none or not available) 
PTYPE™= Type of node parsed from message 


Rg = LPD address 
= WQ 
= RC 


Outputs: 


RO = status code 
R6 = LPD address 
R? = ADJ address 
R8 = ADJ index 


R1-R3 are destroyed. 


: See if there is greedy a BRA slot for this circuit/node 

3 pet: This would be the case if we received several Router 

: ello messages in a row - the first would create the BRA, 

: and the subsequent messages should not create duplicate BRAs. 


SOONAUE WN 0 OO NOAUE WN $9 OONAUE WN ("OOO NOUFS W000 


58 5C AS 9A MOVZBL RCBSB_MAX_LPD(R4),R ; Get number of circuits 
53 GA AG OC MOVZWL RCBSWMAX-RTG(R4).R ; Set ending ADJ index 
19 «#11 BRB 5$ : Start with slot NC+1 
57 2C B448 00 2$: MOVL  § @RCBSL_PTR_ADJ(R4)CR8),R7 ; Get ADJ address 
04 A? 00000014" EF 81 CMP LEV_W_PNA.ADJSU_PNA(R7S ; Boes the node address match? 
A 12 BNEQ $ 3; Branch if not 
38 a6 91 CMPB LPDSB_PTH_INX(R6) ,- ; Does the circuit match? 
2A ADJSB~LPD~INX(R7) 
03 12 BNEQ 5$ 3: If duplicate found, 
009D =—31 BRW + 3; Do nothing - exit with this ADJ 
e358 53 F3 5$: AOBLEQ R3,R8,2$ ; Loop thru all BRA slots 
3; If we are an endnode, do not allow more than 1 BRA at 
: atime (since the BRA is always the designated router). 
; As_aresult, if we have encountered a new BRA at this 
3 «point, bring down the old BRA with ‘‘adjancency down’. 
05 1D A6 {upp POSB_ETY(R6) ,#ADJSC_PTY_ PHAN ; Are we an endnode? 


7 Branch if not 
MOVZBL RCBSB_MAX_LPD(R4) ,RO : Get # circuits 
CMPW PDSW_DRTTR6) .RO : ay external OAT active now? 
: Branc n 
MOV LPDS$W_DRT(R6) ,- ; Move DRT adjacency index to WQE 
WOESW-ADJ_INX(RS) 


$LOG TPL_ARJ,,2R5 : Setup “adjacency rejected" 
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18 AS 4 i€ $6 CLRL WOESL_EVL_PKT(RS) : Indicate no packet for this event 
E1CD' 30 IE 6 BSBW NETSEVT_IRTRAW i; Log the event record 
58 f Aé 1E 98 MOVZWL LPDSW_DRT(R6) RB 3; Get designated BRA index 
288 Y 8 BSBW ADJ _DOWN ; Bring the adjacency down 
1 : er : Allocate a new BRA adjacency slot 
5 5C 44 «=QA OTESA $78 8$: MOVZBL RCBSB_MAX_LPD(R4).R :; Get number of circuits 
53 GA AG OSC CE 74 MOVZWL REBSWIMAX_RTG(RA) LR : Set ending ADJ index 
11 1€&4 75 BRB 15$ ; Start with slot NC+1 
57. 2C B448 DO 1€&4 978 10$: MOVL @RCBSL_PTR ADJ(R4)CR8I,R7 g Get ADJ address 
37 99 3 1E49 7 BBC #ADJSV AMUSE .ADJSB_STS(R7) 2 $ ; Branch if slot available 
F3 58 f 188 of8 15$: AOBLEQ R3,R8,T0$ ; Loop thru all BRA slots 
1a! ea ; The BRA database is full. Eject the lowest priority BRA. 
52 petal 9A 1€51 56 § MOVZBL LEY _B_PRIORITY RZ ; Get BRA router priority, if known 
4 13 1€58 208 BEQL 18$ : If not known, then eject newest BRA 
53 Q0000014°EF 3C 1E5A 5684 MOVZWL LEV_W_PNA,R3 : Pass newest BRA's address 
4A 10 1661 5685 BSBB LOWEST_PRIO_BRA : Determine lowest priority BRA 
58 rf Hat, 2° § TSTL R8 : If newest BRA is lowest priority, 
17 13 1&6 6 BEQL 18$ 3; then simply ignore the message 
20A5 58 B80 1667 5688 MOVW RB, WOESW_ADJ_INX(R5) ; Move adjacency index to wWQ 
1E99 et $LOG TPL age : Setup "adjacency rejected’ 
18 AS bs 1€7 690 CLRL WOESL_EVL_PKT(RS) : Indicate no packet for this event 
£187" 30 1€76 5691 BSBW NETSEVT_IRTRAW : Log the event record 
0249 30 %E79 2836 BSBW ADJ_DOWN ; Bring the adjacency down 
Bec. Ooi? \ere e237 RB : Now allocate the slot just freed up 
1E7E 5635 : The new BRA happens to be the lowest er jority BRA, and thus, 
iene 2698 : we must ignore the message we just received from it. 
50 0000°8F 3C 44 698 18$: MOVZWL #SSS$_INSFMEM,RO ; Indicate BRA database full 
05 1€8 344 RSB : and exit 
1E84 00 3 
+4 9 270! 3 ADJ slot found - initialize it 
30 BB 1E84 3708 208: PUSHR #*M<R4,R5> : Save registers 
67 OD 00 6€ 0 2 JERe Pe MOVCS #0, (SPS #0, MADJSC_LENGTH,(R7) ; Zero ADJ cell 
0 BA 1E8C 5705 POPR #°R<R4,RS> 3; Restore registers 
88 1E8— 5706 B1SB #ADJSM_INUSE!- :; Mark the slot in use 
1E8F 5707 ADJSM_RTG!=- ; Mark as routing adjacency 
1E8F 5708 ADJSM_LSN,=- ; Start the Listen timer going 
67 OD 1E8F 209 ADJ$B_STS(R7) 
02 a7 4 A6 BO 1€91 710 MOVW LPDSW_PTH(R6) ,ADJSW_LPD(R7) ; Store associated LPD 
04 AZ 00000014'EF 80 1696 5711 MOVW  LEV_W"PNA,ADJ$W_PNATR7) ; Set partner node address 
01 A? 0000038 ‘EF 343 ns MOVB PTYPE7ADJ$B_PTYPE(R7) 3; Set partner type 
TEAG ris : Allocate cost/hops buffer for routing with this node 
£518 30 TEAS 216 BSBW ALLOC_COSTHOPS ; Allocate a cost/hops buffer 
1EA9 ns : Leave RUN flag off, until we hear a Router Hello message from 
1EA9 571 ; the remote router node with our address in it, indicat ng that 
1EA9 5720 3 two-way communication has been established. Only then will 
{EAS f } 3 =the router be declared up. 


vou-bb0"™ snSoypinef,bataLine sontrot Yavekay — TGSEECTRBE Q420:35 YAN SRESREYDULTAN.MaR; 1 “2% (88) 
50 00" BO TEA 5725 908: MOL —_S*SSS_NORMAL ,RO ; Successful 
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-SBTTL LOWEST_PRIO_BRA = Find lowest priority BRA 
LOWEST_PRIO_BRA = Determine the lowest priority BRA 
This routine is called when we must determine the lowest priority 


| 
| 


AD BRA in the event that the BRA database is full, and we just heard | 
. from another BRA. | 
AD Inputs: 
AD 

R6 = LPD address 

RS = WQE address 

R4 = RCB address 

= Newest BRA's address 
R2 = Newest BRA's router priority 
Outputs: 


R8 = Lowest priority BRA, 0 if ‘‘Newest BRA'’ is lowest priority 
RO-R3,R7 are destroyed. 
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OWEST_PRIO_BRA: 
58 D4 ciRC 3 Indicate no lowest ADJ yet 
57 SC AS QA F MOVZBL RCBSB_MAX_LPD(R4) ,R7 ; Get number of circuits 
51 6A AG 7 3 oo Ne ee ae : Set ending ADs index 
50 2C B44 dO 9 50S: MOVL @RCBSL_PTR_ADJ(R4)CR7],R0 ; Get ADJ address 
19 60 3 5 BBC #ADJSV-INUSE ,ADJSB_STS(RO),55$ ; Skip if slot not in use 
52. OC A 1 CMPB = ADJ $B_BCPRI(RO) ,R2 : Lower priority? 
1 1A 6 BGTRU 55$ : Branch if not 
06 «+1F 8 BLSSU 52$ ; Branch if so 
53 04 A0 81 A CMPW ADJ$W_PNA(RO) ,R3 3 if oquet compare addresses 
0B sIéE 3 BGEQU§ 55$ 3; If address lower, : 
53 04 a0 3¢ 52$: MOVZWL ADJ$W_PNA(RO) ,R3 ; Update ‘‘lowest priority BRA’ 
52 0C AO 9A 1ED4 MOVZBL ADJ$B_BCPRI (RO) ,R2 ; Update “lowest priority’ 
58 57 00 8 MOVL R7,R8 3; Update “‘lowest prio. index 
DA 57 = =5$1 fF ? 55$: post ee R1,R7,50$ ; Loop thru all routers 


; Start at slot NC+) 
| 
| 
| 


a — —, 


D 13 
TOLLTRN = Pouting & Datalink control Layer 16-SEP-19 AX/VMS Macro V04-00 Page 13 
WOaebbO BEA_U P - "Setup new adjacency or BEA Sets 7 83: 4; 32 NETACP.SRCIJNETDLLTRN.MAR; 1 ” (a5) 
-SBTTL BEA_UP = Setup new adjacency for BEA 


: BEA_UP = Setup new adjacency control block for broadcast endnode 


: This routine is called when a broadcast endnode - heard from to 
; allocate a new ADJ block and declare the node up 


: Inputs: 


R6 = LPD address 
LEV_W_PNA = Address of node which sent message 


Outputs: 


C969 09 SII NNO 


= 

R6 = LPD address 
= ADJ address 
= ADJ index 


R1-R5 are destroyed. 
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3 See if there is already a BEA slot for this endnode. 

$ This would be the case if we received several Hello 

; messages in a row - the first would create the BEA, and 

3 the subsequent messages should not create duplicate BEAs. 


MOVZWL RCBSW_MAX_RTG(R4),R 3; Get NC + NBRA 
RCBSW_ MAX “ADJ(R4), *R ; ending ADJ index 
art with slot NC+1 
@RCBSL PTR_ADJ(R4)CR8) ab > “eet ADJ address 
CMPW LEV_W_PNA,ADJSw_ PNA(R7S ; bees the node address match? 
QL : If duplicate found, do nothing 
AOBLEQ R3,R8,2$ ; Loop thru all BRA slots 


; Allocate a new BEA adjacency slot 


MOVZWL RCBSW_MAX_RTG(R4).R8 =; Get NC + NBRA 
MOVZUL RCBSU MAX-ADJ(R4) .R3 i Set ending ADJ index 


Start with slot b deamee se 
10$:  MOVL  @RCBSL_PTR_ADJ(R4)CR8I.R ab 
#ADISVE NUSE ,ADJ$B_STS(R7).20$ ; Branch 7 ‘stot available 
3 Loop thru all BEA slots 
MOVZWL asés, {NSFMEM,RO ; Indicate BEA database full 
208 RSB 3 and exit 


; ADJ slot found - initialize it 


PUSHR #*M<R e registers 
MOVCS #0, tees" 20. #ADISC _LENGTH’ aa’: Tero ADJ cell 
POPR #°McR4,R5>- F Restore resisters 
BISB #ADISM. a 3; Mark the slot in use 

ADJSM_RUN!- ; Mark adjacency up for routing 

AD SN : Start the Listen timer going 
ADJ$B "STS(A7) and mark adjacency up for routing 
MOVW = LPDSWTPTH(R6) ADJ SW_ LPp(R7) Store associated LPD 


SN 


28 6A AG 
5 68 A4 
OF 

57, 2C_ B448 
04 A7 00000014 "EF 
ED 58 53 
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¥O4-000 BEA UP = "Setup new adjacency for BEA BrSEEn18bs a:foi8s EARTACS. Saeste yt OO. wanes ame 139, vl 
04 A7 09900014 "FE 88 1F2C 3 MOVW LEV_W_PNA,ADJ$W_PNA(R7) ; Set pertner node address 
1A 5 iF 4 : MOVB #ADISC_PTY_PH4N;ADJSB_ PTYPE(R? : Set partner type 
1F § : Set entry in gost ihogs matrix for the main NI ogjecency 
1F 3 to indicate that it reachable (hops=0, cost=0). 
1F : :  cost/hops will be correctly compu ed to include this 
if 4 3; node when the decis on algorithm is run. 
51 2006 9A IF 1 MOVZBL LPD$B_PTH INK (RG) , Rt : Get LPD index 
OA EF 1F3C § EXTZV #TR4$0_ADBR_AREA, orge address 
52 04 A7 6 1F #TR4$S— “ADDR “AREA, "ADUSW_ Pinch ve 
18 13° 1F4 BEQL 30$ $ area = 0, assume our area 
0U8B C4 5 91 1F4 5 CMPB R2,RCBSB_HOMEAREA(R4) 3 MS area? 
OF 13 1F49 $ BEQL ; If so, set the right cost/hops 
51 oomee Was 0 188 38 oe SOA AREA CHEATS 3 eet ig oF ares cost/hops buffer 
3 none, $s 
a || | aH ip Lee pay) tRed 3; Set area eealtiaee to “‘adjacent”’ 
00 EF 1FSA 5841 30$: EXTZV #TR4$V_ADDR_DEST,- Get node address within our area 
52 04 A7 OA 1F5C 2848 #TR4$S— ~ADDR- erat n AD {Su PhACR?) oR2 
51 00000980'EF41 9 1F68 584 MOVL NETSAL~CH_VECCR1I,R Get address of cost/hops buffer 
03 13 1F68 5844 BEQL 40$ :; If none, skip it 
6142 B4 iron o06? 40s CLRW (R1)CR2) ; Set cost/hops word to ‘'adjacent"’ 
4 S847 : : Update the routing database 
E090" 30 1F6D 5849 BSBW =—_—:UPDATE_ALL ; Re-run decision algorithm 
1F70 5850 ; and force routing msgs to be sent 
50 00° pO 1F70 5851 90$: MOVL S“#SS$_NORMAL ,RO ; Successful 
05 1F73 5852 RSB 
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yO4-000 Error action routines for PRUN”’ state ~$Fb=138e 8:45:38 NETACP.SRCIJNETDLLTRN.MAR; 1 ’ set Vv 
1E%% : - -SBTTL Error action routines for ‘'RUN’’ state 
1F74 § ; ACTLRUN_SYNC = Synchronization Lost while in the "'run’’ state 
1F74 ; ACT_RUN_UXPK = Unexpected packet type while in the “run” state 
1F74 28 ; ACTLENT_MPR = Circuit has entered MOP mode while in the ‘'run’’ state 
aS 23 ; ACT_RUN_SHUT = Shut down the datalink while in the ‘‘run’’ state 
1F74 61 ; INPUTS: R11 CRI CNR ptr 
1F74 86 3 R10 CRI CNF ptr 
1F74 65 ; Re LPD ptr 
1F74 64 ; 8 WQE address 
ieee 92 ; RG RCB address 
1F74 89 3; OUTPUTS: R5 Unchanged 
1F74 68 ; R1 Next event to be processed 
1F74 +4 3 RO Low bit set if state change is permitted, 
Wee a 3 Low bit clear to avoid state change 
a 5 ys 3 ALL other regs may be clobbered. 
1774 5874 ACT_RUN_SYNC: ; Circuit down = synchronization lost 
1F74 5875 $LOG TPL_LDF,TPL_PRSN_SYNC,,R5 ; Setup logging data 
51 23 00 IF7C 87 MOVL  #LEVSC_LOG_CDE,RT ; Signal “circuit down’ event 
50 D4 1F7F 7 CLRL RO ; Do not change state for this event 
05 168) 3878 RSB 
183 80 ACT_RUN_UXPK: ; Circuit down - unexpected packet type 
1F8 Ht $L0G TPL_LDS,TPL_PRSN_UXPK,,.R5 ; Setup Lo ging data 
51 4 DO 1FBA Hf MOVL #LEVSC_LOG_ADE RT : Signal “adjacency down’’ event 
0 D4 1F8D 588 CLRL RO ; Do not change state for this event 
05 4 4 aae RSB 
1F90 Hn ACT_ENT_MPR: ; Enter MOP mode from the run state 
36 10 1°90 5887 BSBB EXIT_RUN_STATE ; Exit the ‘‘run’’ state 
02E6 30 1F9 epee BSBW ACT_GI0_ SHUT ; Shutdown the circuit 
51 21 00 1F95 5889 MOVL #LEVSC_TRP_MM,R1 : Resignal MOP mode event 
50 01 DO 1F98 2 90 MOVL #1,R0 ; Allow state change 
05 1F98 91 RSB 
1F9C 3 
1F9C $893 ACT_RUN_SHUT: ar 
in 10 1F9C 94 BSBB EXIT_RUN_STATE : Exit the ‘'run’’ state 
51 4 DO IF9E 95 MOVL #LEVSC_REQ_SHUT,R1 ; Chain to ‘‘request shutdown’ event 
50 =—(01 Nt 1FAl 38 MOVL #1,R0 : Allow state change 
05 1FA4 9 RSB 
1FAS a 
He 99 ACT_ADJ_DOWN: 
1FA 901 ; If this is a non-broadcast circuit, or the adjacency is the 
1FA5 O86 3 gc seer circuit adjacency, then bring down the entire circuit. 
1FA3 $04 ; therwise, mark the adjacency down, and leave the circuit running. 
1 $6 A6_ OA # 1FA 905 Bc #LPDSV_BC,LPDSW_STS(R6),50$ ; Branch if non-broadcast circuit 
0 36 AG A FAA 59 § MOVZBL RCBS$B_AMAX_LPD(RZ).R ; Get number of circuits 
50 AS 61 irae 9 CMPW WQESW_ADJ_INX(R5) ,RO : Is it the main circuit adjacency? 
OF 18 1FB 9 8 BLEQU 3; If so, shutdown entire circuit 
58 20 A 35 1FB4 59 MOVZWL WQESW_ADJ_INX(RS),R8  : Get ADJ index 
010A 1FB8 5910 BSBW ADJ_DOWN ; Mark adjacency down 


13 
VOu~O0 Error action routines for TR Wate "SrSEb=1984 83:99:35 ENETACE. SReSwEYOLLTRN.MaR:1 2% (2B) 
to d 


MOVL #LEVSC_NO_EVT,R1 ; Nothing more 
3 8 Rai NS 


: Shutdown the entire circuit 


MOVL #LEVSC_LIN_DOWN,R1 ; Chain to bring down entire circuit 
CLRL R ; Do not change state 


— 
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WHaebbo EXIT_RUN-STATE - Exit the RUN state = gee =1382 EL NETACP.SRCIJNETDLLTRN.MAR; 1 . (69) 
ire 3 1 G -SBTTL EXIT_RUN_STATE = Exit the RUN state 
ire 3 ; EXIT_RUN_STATE = Perform any cleanup before exiting the ‘'run’’ state 
1FC 925 ; Inputs: 
1FC 9 § 3 
1FC 927 ; R11 = CRI CNR address 
1FC 928 ; R10 = CRI CNF address 
1FC 929 ; R7 = ADJ address 
1FC 950 ; R6 = LPD address 
1FC 931; R4 = RCB address 
1FC 9 § ; 
1FC 933 ; Outputs: 
1FC 934 ; 
1FC 935 ; None 
1FC 339 _< 
1FC8 5937 EXIT_RUN_STATE: 
1FC 335 Bump B,LPD$B_CNT_LDN(R6) : Increment circuit down count 
04 €5 1FD1 5939 BBCC #LPDSV_RUN,=- ; If leaving run state then 
03 22 A6 1FD3 5940 LPDSW_STS(R6),7$ : 
60 AS 97 Ha oh 73 DECB RCBSB_ACT_DLL(R4) ; Account for loss of datalink 
kg 3548 3 Mark as unreachable all nodes which were to use this path 
53 ¢0 A6 QA 1FD9 $545 MOVZBL LPDSB_PTH_INX(R6) ,R3 ; Get index of LPD now inactive 
52 SA AG) «O3CCOFDD «5946 MOVZWL RCBSWIMAX-ADDR(R4S,R2  : Get maximum number of nodes 
5 01 0 1FE1 5947 MOVL #1,R 3; Start at node #1 
50 1C B441 C 1FE4 5948 10S: MOVZWL a@RCBSL_PTR_OA(R4)(R1],RO ; Get output ADJ for this node 
OF 13 IFE9 5949 BEQL 20$ : Branc none 
50 2C B440 00 4 950 MOVL @RCBSL_PTR_ADJ(R4)CROJ,RO ; Get ADJ address 
53 02 a0 61 iFFO 5951 CMPW ADJSB_CPD_INX(RO),R3 ; Does this ADJ use the LPD? 
04 12 IFF4 828 BNEQ 20$ ; Branch if not 
1C B441 B4 1FF6 292 CLRW @RCBSL_PTR_OAC(R4)CR1] ; Mark node unreachable 
&6 51 52 F3 wre eaze 208: AOBLEQ R2,R1,T0$ 3 Loop through entire OA vector 
a 2929 : Mark as unreachable all nodes which were to use this path 
20 A4 3 1FFE 328 TSTL RCBSL_PTR_AOA(R4) ; Are we an area router? 
1 4 95 BEQL : If not, skip it 
52 008C C4 QA 03 5960 MOVZBL RCBSB_MAX_AREA(R4),R2 ; Get maximum number of areas 
51 01 0 008 5961 MOVL : Start at area # 
50 20 B441 g 0 96¢ 22$:  MOVZWL @RCBSL_PTR_AOA(R4)CR1].RO ; Get output ADJ for this area 
sie 01 96 BEQL : Branch if none 
50 2c B40 D0 2012 5964 MOVL §@RCBSL_PTR_ADJ(R4)CROJ.RO ; Get ADJ address 
53 02 a0 861 1 965 CMP ADJ$B_CPD_INX(RO) ,R3 3; Does this ADJ use the LPD? 
04 12 18 596 BNEQ 24$ : Branch if not 
0 8441 B84 339 96 CLRW @RCBSL_PTR_AOA(R4)CR1] ; Mark area unreachable 
£6 51 52 F3 1 oe8 ges: AOBLEQ R2,R1,22$ 3 Loop through entire AOA vector 
; $70 : Bring down the adjacency which initiated this event 
58 20 AS 3 o7¢ MOVZWL WQESW_ADJ_INX(R5).R8 =; Set index of ADJ we have in-hand 
0099 , 46, BSBW ADJ _DOWN ; Bring down adjacency 
C 5975 ; If this is a broadcast circuit. then bring down any 
: 3f8 : adjacencies that are associated with this circuit. 
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yO4-b00 EXIT_RUN-STATE - Exit the RUN state a ioets 83:45:38 ENETACE. SREINETDLLTRN.MARS 1 ’ (69) 
34 85 A6 OA 5 443 BBC #LPDSV_BC,LPDSW_STS(R6),50$ ; If non-broadcast circuit, we're done 
68 A 7 MOVZWL RCBSW_RMAX_ADJ(RZ) ,R2 ; Get number of 9d acencies 
> oem 980 MOVL ; Start at 4 
50 ¢ B448 3 1 308 MOVL  a@RCBSL_PTR_ADJ(R4) CRB) Rb i Get ADJ address 
OA 0 3 D § BBC Ay! V JNUSE AD SB STS(RO).40$ ; Branch if slot not in use 
20 A6 «(OZ A 1 41 59 CMPB) = ADJ SB_CPD_INX(RO) ,CPDSB_PTH_INX(R6) ; Does it point to LPD? 
1 8 984 BNEQ 40$ 3 ot, go on 
007A 3 4 985 BSBW sh OWN ; Bring down the adjacency 
E958 S52 F ‘8 4 § 40$: AOBLEQ R2,R8,350$ ; Loop thru entire ADJ vector 
4F 59 3 ; Make sure the ‘designated router” is reset when the 
bef 9 ; circuit is brought down, just in case it fails to get 
bee 444 ; reset properly elsewhere. 
0 A6 9B 204F 338 MOVZBW LPDS$B_PTH_INX(R6),- ; Indicate no ‘‘known’’ designated router 
C A6 See eer LPDSW_DRTTR6) ; (make it the circuit itself) 
054 5995 : Reset router/state List to a null string, since there are 
bee 2988 ; no longer any BRAs for this adjacency. 
50 2E A6 9 054 5998 MOVL  LPDSL_RTR_LIST(R6),RO ; Get address of election List 
08 1 058 5999 BEQL 45$ : Skip if none 
60 4 toy $000 CLRB (RO) : Reset election List to null 
05C 600 ; Send an ‘I'm going away’’ message (empty RHEL), if possible, 
bee o002 ; to notify other nodes that we are going away. 
50 0D 9A 205C 6005 MOVZBL M#NETUPD$_SEND_HELLO,RO ; Set function code 
OCCA 30 54 on8 58 BSBW TELL_NETBRIVER ; Call NETDRIVER to send hello msg 
062 6008 : 3 woe tty DLE module that broadcast circuit is down, so that it 
be $003 ; can disable the ‘‘load/dump"’ and ‘‘lLoopback’’ protocol types. 
DF9B’ 30 be oR BSB DLESBC_DOWN ; Disable service on circuit 
065 8018 ; Store infinite cost/hops for all nodes in the cost/hops buffer 
065 6014 ; associated with the circuit going down. When the decision 
065 6015 ; algorithm is run again, the cost/hops to all nodes will be 
bee $88 > = re=computed. 
53 20 A6 9A 2065 e018 508: MOVZBL LPDS$B_PTH_INX(R6),R3 ; Get index of LPD now inactive 
i$ BB 2069 601 PUSHR #*M<R3,R47R5> ; Save critical regs 
50  00000980'EF4 0 O78 $9 ae ¥ YSAL_CH_VECERS3.RO 3 ger aperees of cost/hops buffer 
3 none 
FF BF O6E 2c 07 6 § MOVCS #0,(SP),#-1,- 3 Store infinity in each cell for 
60 00 8F 7A 6 #2*NUM_NODES, (RO) 3 each node as known to this circuit 
5 dO 7E 6024 MOVL (SP) ,R ; Recover R 
50 OOOOTASS "EF 43 f | ? 5 528: “py N TSAL_AREA_CHER33,RO 3 Set oqgress of cost/hops buffer 
: none 
FF 8F 3 2c 6 ; MOVCS #0,(SP),#-1,- : Store infinity in each cell for 
60 0080 er 90 6 3 # SNUB _AREAS » (RO) 3: each node as known to this circuit 
8 BA i 6 3 55$: POPR #*A<R3,R4,R5> ; Restore regs 
96 g 1 3 When exiting "run" state for any reason on a X.25 PVC (including 
96 6 § : because the remote side sent us a reset), issue a resey to the 
96 6 : remote side to ensure that it restarts the initialization sequence. 
96 6034 : We can't get into an infinite loop doing this, because its only 
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Wo EXIT RUN-STATE - Exit the RUN state -SEP-1984 94:93:32 NETACP.SRCIJNETDLLTRN.MAR; 1 . (69) 
2 g é : done when exiting the run state. 
E1 2096 6 ac #LPDSV_X25,- : If X.25 circuit, 
26 22 A6 98 6 : LPDSW_STS(R6) ,60$ 
H 6 SGETFLD cri,l,use ; Get circuit usage 
16 28 oa A8 6040 BLBC ° 
00 D1 20AB 6041 CMPL RB. #NMASC_CIRUS_PER 7 X.25 PVC? 
11 12 20AE 6 4¢ BNEG 608 : If so 
5 Be 604 CLRL R1 + No Q10 buffer needed 
Oars 0 epee BSBW NETSDOLL_Q10_CO : So legate and init WQE (co-routine) 
0030'C2 0 2085 6045 MOVL #PSISC_RESET ,WQESC_LENGTH+P4(R2) ; Set P4 to ‘reset initiate’ 
50 0000'S  3¢ OBA : 46 MOVZWL #10$_NETCONTROL,RO : Set 1/0 function code 
E 6 per ° rf 608 JSB acspy+ : Issue 1/0 request 
0Cc1 one? ; Update the routing data base to account for the decrease 
$3 6050 : in active circuits, as well as to remove all least cost 
$3 Opes 3 paths over this circuit. 
DF3C* 30 20C1 $088 &sBw UPDATE_ALL ; Re-run decision algorithm 
0C4 6054 3; and force routing msgs to be sent 
05 20C4 6055 RSB 
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WO4e0b0 ADJ DOWN’ = Mark adjacency as shutdown §- -SEP-1984 4 83: 94; 32 NETACP.SRCJNETDLLTRN.MAR; 1 - (70) 


: ; 38s -SBTTL ADJ_DOWN - Mark adjacency as shutdown 
: 8 i ; ADJ_DOWN = Shutdown the adjacency 
: é ie : This routine is called to mark an adjacency as shutdown. 
: ? a ; Inputs: 
C3 6065 : RB = ADJ index 
C ? 96 r R6 = LPD address 
: 67; R4 = RCB address 
c 6 3 ; Outputs: 
# 6071 ; None 
o¢ 6008 ; No registers are destroyed. 
bee 6075 ADJ J_DOWN: 
QOO8E 8F BB 20C5 one PUSHR #*M<R1 oR2,R3,R Save registers 
57 2C B448 D0 2009 607 MOVL aRCBSL_ PTR AB (R4)ERBI, RP Get ADJ address 
00 EF 20CE 6078 EXTZV aTRGSV"A DEST, ove 8 node # for later in routine 
53 04 A7_ OA 000 6079 #TR4$S_ ADDR “DEST, “ADUSW. PNACR ),R3 ; (assume it's in our area) 
04 A?) «684 «62004 «6966080 CLRW ADJ$W_PNA(R7) : Adjacent node is unknown 
06 A? B4& 2007 6081 CLRW tate BUFS1Z(R7) eset buffer size 
OE 8A 20DA 608 BICB JSA_RUN! ADJSM_ Lswiapugee “RIG. = : Clear flags 
6 ODC 608 AD USB STS(R7) 
FF 8F 90 20DD 6084 MOVB #ADJST_PTY_UNK,=- 3; Mark partner type unknown 
01 A? OE 60 5 ADJ$B_PTYPE(R75 
OE2 6087 : If this is the main circuit adjacency, then do nothing more 
be et 3 ; then resetting the fields in the ADJ. 
50 SC A4 9A 20E2 6090 MOVZBL RCBSB_MAX_LPD(R4) ,RO ; Get number of circuits 
50 58 61 20E6 6091 CMPW : Is this the main aot adajcency? 
26Ci«d 0E9 609 BLEQU§ 90 : If so, don't ever deallocate it 
00 =«€ OEB 609 BBCC rye ts VI use ; Mark slot no longer in use 
22 67 ED 6094 ADJ$B_ STStR 5,90 : and exit if already was marked down 
57 D4 EF o882 CLRL a ; Invalidate pointer 
6A AGS 58 #61 Fl 6 38 CMPW BB RCBSW_MAX_RTG(R4) ; BRA or BEA? 
05 14 OFS pas BGTR 30$ : Branch if endnode 
F? 6099 : If this is a broadcast router, then call another routine 
44 eit : to handle it. 
OO1F 30 OF? 61 : BsBw BRA_DOWN ; Mark BRA down 
12 11 4 } Z BRB 
FC 6105 : If this is an endnode, then set the cost/hops to this node 
4: ! $ : to infinity. 
50 20 A GA FC 1 § 30$: ROVZBL Leese Pu. im X(R6), ~ ; Get LPD index 
50 00000980 EFs0 0 } 19? nov. WETSAC_ CH. ECCROJ.R : Get address of cost/hops buf fer 
3 none, 
6043 $i AE : > att NE GW 2 cro cR32 : Set poe ade to infinity 
10€ g118 : Update the routing database to account for the change in 
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vba ADD DOWN? = "Mask sdjeccnee os Shutdown ScSEpatone Go:fgiss EARTHS. SAeSee VOT OR, mans P29 198; 
} 113 : the cost/hops matrix. 
DEEF' 30 21 116 50$:  6SBW UPDATE_ALL ; Re-run decision algorithm 
50 1 v0 11 i 90$ MOVL #1,R0 : adh, eae Sage 20 58 ae 
: P ; Su 
OO8E F BA 2114 118 POPR #*M<R1,R2,R3,R7> ; Restore registers 
05 2118 6120 RSB 
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¥O4-000 BRA DOWN’= Mark BRA down . ~Seert38 83:95:58 FARINES Bacto, vor roe man;1 2% 


-SBTTL BRA_DOWN = Mark BRA down 
BRA. DOWN = Mark BRA down 
; This routine is called when a BRA is removed from the adjacency database. 
; Inputs: 
ADJ index 


Outputs: 
BRA 


119 
11 138 
11 124; 
11 125 ; 
11 1 gi 
119 61 
119 61 8: 
HCE 
119 6131 R6 = LPD address 
= address 
119 61 R4 = RCB add 
119 61 
119 6134 
119 6135 ; 
119° S139 : es 
119 61 g : RO-R3 are destroyed. 
119 61 
mon 
119 o1%¢ ; If this BRA was the designated router, then reset the ADJ index 
BP oie7 :; for the designated router, indicating no designated router. 
2c AB «O58)SOBTSC2119 6145 CPW =—s RB, LPD$W_DRT(R6) ; Is the designated router going down? 
12 2110 9168 BNEQ 5$ : Branch if not, 
$0 A6 9B 211F 614 MOVZBW Loose. PTH_INX(R6),- : Indicate no ‘‘known"’ des ignated router 
C A6 : e bps = LPDSW_DRTTR6) ; (make it the NI itself) 
124 6150 3; For broadcast routers, remove its entry from our Router 
124 6151 : Hello NI LIST, and set cost/hops to all nodes thru this 
124 613¢ : router to infinity (by deal Locating the cost/hops buffer 
; re 2127 : for this router adjacency slot). 
124 6155 $DISPATCH LPDSB_ETY(R6), TYPE=B,<- ; If we are an endnode, 
124 9136 <ADJSC_PTY_PH $>.- ; skip the following 
124 615 <AD JSC “4 CHEN. 10$>>_ 
0067 30 2133 6158 BSBW BUILD ; Re-build RTR_LIST, minus this router 
50 secsoree*cr ss 0 136 212% nt ae th ~VECERS), RO : Sef cogt/hops buf er 
50 OC 145 6161 SUBL 3 Sot edirese of real buffer 
DEBA' 14 616¢ BSBW NETSDEALLOCAT : Deallocate it 
QOO009B8O'EFS4S 04 2146 616 CLRL Uy CH_VECCR8) 3; Indicate Gubler no Longer present 
50 OO001A88'EFS8 OD 14D 6164 10S: MOVL TSAL_AREA_CHCR8],RO ; Get area cost/hops buf 
D 1 919? BEQL : Skip if not there 
$ 1 198 SUBL ; Get address of real buffer 
' 30 13A 616 BSBW NETERCALLOCATE ; Deallocate it 
00001A88' bre D4 120 2188 158 CLRL NETSAL_AREA_CHCR8) : Indicate buffer no longer present 
+ $179 : Re-calculate the ‘minimum blocksize of all BRAs on the NI" 
164 617 : (which is stored in the main adjacency of the NI, and is used 
164 o178 g to determine the size of routing messages sent over the NI) 
17% ott? ; by scanning all active BRAs left, and determining the minimum, 
50 20 48 oA 186 gies RovZBL ts PTH_INX(R6) ,R Get LPD index 
50 2c B44 D0 2168 6176 C_PTR_ADJ(R4 Aste RO Get main ADJ address for BC 
5 AB B 190 17 MOV oP osu BUF sI? (R6),- > bvcset minimum to our size 
06 A 170 6178 ADJSW~ ~BUFSIZER 0) 
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WO4e0b0 BRA A DOWN’ = Mark BRA down ’ §- =SEP=19 3b 83: 3 32 ENETACE.. SRCINETDLL TRN.MARS 1 . (71) 
26 SC AG) QA 217 179 MOVZBL acess. MAX rhe tReD ORS ; Get number of circuits 
5 6A AG 3¢ 17 180 MOVZWL $w- “MAX. RTG(R4),R ; Set ending ADJ index 
1 11 217A 6181 BRE 5 Start with slot A 
51 ef B44 b0 17¢ 1 § 20$ MOVL @RCBSL_PTR_ADJ(R4)CR2) i: Get se addre 
361 0 gt 181 61 BBC #ADJSV"RUN-ADJSB sts(R1) 258 3 Skip if BRA not running 
20 \ no? 3 184 CMPB Ss LPD$B_P ~{NX(ROT, = !“Ts it on this NI? 
A 1 185 $B-LPD-INX(R1) 
O¢ 2 18A 61 § BNEQ : If not, skip it 
86 A 8 18C 61 CMPW ADJ$W_BUFSIZ(R1),- 3; Buffer else’ Lose than minimum? 
ag 18F 61 3 A UFSIZ(RO) 
0 a 1 } 1 BGEQU $ : Branch if not 
6 Al 8B 19 1 9 OVW ADJ$W_BUFSIZ(R1),- : If so, store the minimum 
6 49 138 1 Agu ay Bye Stecne) 
£0 52 5 a 19 0138 25$ AOBLEQ R3,R2,20$ 3; Loop thru all BRA slots 
0 19¢ 19 $B 
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RO = True if election list has not changed since the last one 
(“election stablized’’). False if it's different than 
the Last one (send it out now). 


tRTA_tist 

133 -SBTTL BUILD_RTR_LIST = Re-build NI router/state List 

199 ; BUILD_RTR_LIST = Re-build NI router/state list 

198 ; This routine is called when the router adjacency database changes, 
; to rebuild the NI router/state List for our Router Hello message. 
; Inputs: 
: R6 = LPD address 
: R4 = RCB address 
3 Outputs: 


R1-R3 are destroyed. 
BUILD_RTR 


e-CUVT TTT 9TT9CTT9T9T90000000"7C0"” "C09 


LIST: 
0180 8F 88 POSHR #*M<R7,R8> : Save registers 
5E  OO0000ED BF C SUBL § #1+TR4C_MAX_RSLIST,SP : Allocate buffer on stack 
ee 35 St oO MOVL SP,R3 : Point to buffer 
3 Scan all BRA adjacencies, and for each slot in use on this LPD, 
; store an entry in the List. 
MOVZBL RCBSB_MAX_LPD(R4) ,R8 ; Get number of circuits 
58 INCL & 3; Set Starting ADJ index 
6A A4 MOVZWL RCBSW_MAX_RTG(R4),R1 ; Set endin DJ index 
B448 50$:  MOVL  a@RCBSC_PTR ADJ(R4SCR8I,R7 : Get ADJ address 
00 E1 B #ADJSV INUSE ,ADJ$B_STS(R7) ,55$ ; Skip if slot not in use 
20 A691 CMPB LPD$B_PTH_ ah i 3 Is it on this NI? 
02 A7 ADJSB=LPD-INK(R7) 
1D 12 BNEQ 55$ :; If not, skip it 
83 O00400AA 8F 00 MOVL #TRSC_NI_PREFIX, (R3)+ ; Store standard Phase IV prefix 
83 04 A7 B80 MOV ADJSWPNA(R7), (R3)+ 3; Store node address 
ASSUME TR4V_RS PRIO Ed 0 
83 OC A7 90 Ove AD JS6 BCPRI(R7),(R3)+ ; Store router priorit 
SETBIT TR4V_RS_TWOWAY,-1(R3) 3; Assume two-way established 
05 67 01 €0 BS #ADJSV_RUN, ADJ$B STS(R7) , 558 : Branch if two-wa 
CLRBIT TR4V RS TWOWAY,-T(R3) : Else, clear two-way flag 
CF 38 51 F3 55$: AOBLEQ Rt RE. 0s 3; Loop thru all routers 
5 sm 6 OC SUBL SP,R 3; Compute size of new List 


: See if new election List is different than our old one. If 
; so, set a flag for the caller. 


PUSHR #*M<R1,R2,R3,R4,R5> ; Save registers 

MO LPDSL_RTR_LIST(R6),R1 Get address of buffer 

+ Get size of current List 
CMPC R3,594(SP).#0,RO, (RI) Is the new List different? 


3 
<< 
~~ 
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50 8 9A 
61 50 00 14 AE 3 $ 


Sete Se Se See 


eee eee ee eee eee eee ee eS 
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i BEQL so, 
° D4 CLRL 8 “Election not stable yet’ 
11 BRB 598 rt 
50 1 00 57$: MOVL #1,R0 : ‘Election stablized 
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14 
UG°RE L2PeE, eee MCSEECTREE 2:99:38 | 
POPR = #*MCR1,R2,R3,R4,RS> 
; Store new List in LPD buffer 
MOVL LPOSL RTR_LIST(RG) ,R1 


8 
PUSHR #* AcRO RG RS> 
MOVC RS wanetes ca 


4 
ADDL aeiet MAX °RSLIST, SP 
POPR 7, R8> 


AX/VMS Macro Vv04-00 
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; Restore registers 


Save registers 
Store entire List 
Restore registers 


Restore registers 


Get address of buffer 
Store size of List 


roe 18, 


Deailocate buffer on stack 


N 
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VO4-00 ELECT. ROUTER - Elect designated router ~$Fb= 1382 $3599 :38 NETACP.SRCINETDLLTRN.MAR; 1 . (34) 
6 $3 ~SBTTL ELECT_ROUTER = Elect designated router 
6 e ; ELECT ROUTER = Elect the ‘designated router’ for this circuit 
g 63 ; This routine elects the oerpatee router from among all the routers 
6270 ; on this NI. Since qvery router uses the same algorithm to decide, 
6271 ; all the routers arrive at the same conclusion without consultation. 
20 6 te ; This routine must only be called if we are a router (if an endnode 
§ i ; was to set its DRT to ourself, we would probably crash). 
0 ° e 3 Inputs: 
8 6 8 : R6 = LPD address 
0 6278; R4 = RCB address 
0 6279 ; 
; 8 ? g0 ; Outputs: 
0 6 S¢ ; Ri = Adjacency index of ‘‘designated router’’ 
§ 0 6283 ; a = Priority of ‘designated router’ 
: ? Se : RS = Node address of ‘designated router'’ 
5 0 6286 ; RO is destroyed. 
$50 6287 ;- 
20 6288 ELECT_ROUTER: 
0380 8F 6B $50 6289 PUSHR #*M<R7,R8,R9> ; Save registers 
59 0088 C46 9A 24 6290 MOVZBL RCBS$B HOMEAREA(R4) RO 3; Get our own area number 
58 01 00 9 6291 #LPDSC_LOC_INX,R8 3: Set ‘current DRT adj index'’ 
52 2A Ab 9A C 6 3¢ MOVZBL LPD$B_BCPRI(R6) ,R2 : Set ‘highest priority” 
5 OE AS = 3C 0 629 MOVZWL RCBSW_ADDR(R4) ,R3 ; Set “‘current DRT address’ 
57 5C AG) (OA 2234 629% MOVZBL RCBSB-MAX_LPD(R4) .R7 : Get number of circuits 
51 6A AG 3 38 6295 MOVZWL RCBSU_AAK_RTG(R4) RI ; Set ending ADJ index 
.; Fy C 6 38 BRB 55$ 3; Start at slot NC+1 
50 2C B447 ~=—»0 if 6297 50$: MOVL @RCBSL_PTR_ADJ(R4)CR7),R0 3; Get ADJ address 
860 00 €1 4 6298 BBC #ADJSV INUSE ,ADJSB_STS(RO) ,55$ ; Skip if slot not in use 
20 A691 oe 6299 CMPB LPD$B_PTH_INX(R6) ,= : Is it on this NI? 
02 Ad fA 6300 ADJ$B_LPD_INX(RO) 
, ee: $76 6301 BNEQ 5$ : If not, skip it 
OA ED 4 6 08 CMPZV #TR4$V_ADDR_AREA,- - Is it in our area? 
59 0400 06 50 6 6 #TR4$S~ADDR_AREA, ADJSW_PNA(RO) ,R9 
19 12 54 6304 BNEQ 55$ :; If not, skip it 
52 OCA 91 56 6305 CMPB £0 JS8_BCPRI(RO) .R2 ; Higher priority? 
1 1F 5A 6 88 BLSSU $ : Branch if not 
06 JA 5c 6 BGTRU 2s 3; Branch if so 
53 04 aA0 861 5 g 3 CMPW Gos _PUACRO) -AS : If equal, compare addresses 
08 1B 226 BLEQU $ : If address lower, skip it 
53 04 A0 3¢ 6310 528: MOVZWL =ADJ$W_PNA(RO) ,R3 ; Update “current ORT address 
52 ,,0C AQ 9A 2068 6511 MOVZBL ADJS TBCPRI (RO) ,R2 ; Update “highest priority’, 
58 5 09 6c 6 \ MOVL R7,R ; Update “‘current DRT index 
cB 57 «= «51—isé&F of 63135 55$: AOBLEQ R1,R7,50$ ; Loop thru all routers 
51 58 00 3 6314 MOVL . 3; Return DRT index in R1 
0380 8F a 76 6315 POPR #*A<R7,RB,RI> ; Restore registers 
5 7A 6316 RSB 
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-SBTTL ACT_QIO_SHUT = Shutdown the datalink 

ACT_QIO_SHUT = Shutdown the datalink 

R11 CRI CNR ptr 

R10 CRI ved ptr 

Rg LPD p 

R WQE Clarese 

RG RCB address 
OUTPUTS: R5 Unchanged 

R1 Next event to be processed 

RO Low bit set if state change is permitted, 

Low bit clear to avoid state change 

ALL other regs may be clobbered. 

CT_QIO_SHUT: 3; Shut down the datalink 


: Reset LPD fields 


CLRBIT LPDSV_ haa ab yp LPDSW_STS(R6) ; Clear X.25 incoming ae flag 

CLRB LpDse. ee LG(R6) 3; Clear Transport xmit flag 

MOVB ADISC P Y_UNK,=- ; Clear ‘‘our node 5UP ues ten this circuit 
tPDSB “ETY (RGD ; (setup later in D 


Reset the main circuit adjacency. in the event that we got 
here as a result of an initialization failure (since if we 
exit run state, the main circuit adjacency is reset). 


ne pose TH INX(R6),R8 =; Get LPD index 


ADJ 3; Reset main cireuit adjacency 
; Reset substate for circuit 
3; Change to ‘‘synchronizing’’ substate 
PD$B_SuUB_STA(R6S : . ‘ . 
FLPDS DL : If BC then not going down for 
LPDSW STS(R6) 10$_ ; “service’’ functions 
: Init substate as ‘‘auto-service” 


PD$B_SuB 
: If X.25, use DEACCESS, not SETMODE 


5_SHOTD 
: Cancel any outstanding Q10s in progress on the datalink 


6sBw =s- RESET_CHAN : Cancel any Lingering 1/0 


: Issue a SETMODE to reset the datalink 


R1 : Indicate no need to extend P1 buffer 
BSBW NETSDLL rane co : Allocate and init WQE (co-routine) 
MOVZWL #10$_SETMODE!- ; Setup function code 

10$M_ SHUTDOWN ,RO j 
RSB ; Return to co-routine 
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GuuT = Shutdown the datat ink ~SEEr 1882 83:45:38 FARINAS Becta vor OO man:1 2% bey 


: Shutdown X.25 datalink using DEACCESS 
25 _SHUTDOWN: 


voseb00™ acted 


; Get circuit usage 


$GETFLD ert x use 3 

BLBC 5 DEACCESS : Error if not found 

CMPL + HARKSE CIRUS_PER 3 Pvc? 

BEQL ; § PV VC_SRUTDOWN : If so, use different shutdown 

X25_DEACCESS: 
CLRBIT LPDSV_PVC_ACCESSED,- 3; Indicate circuit no longer ACCESSed 
LPDS$B_PVCFLG(R6) 
D4 CLRL R1 : Indicate no need for Q10 buffer 
30 BSBW NETSDLL_Q10_CO ; Allocate and init WQE (co-routine) 
f MOVZWL #I0$_DEACCESS,RO : Setup function code 

0 RSB : Issue Q10 and exit 


Jnly soos 8 ‘fF yom f a PVC if we are Rg ty off the circuit. This 
allows the are software to retain its knowledge of the state of 
the 4 in Be - x4 that if a ‘‘reset’’ is outstanding, our next reset will 
confirm it and heap. the circuit in a consistent state. 


OOOO 0000000000900 09 090908 III 
MEW OOONAUE WHO OONOU 


D4 £396 | ; 
D4 ? 97 XK25_PVC opeyreeees 


POPQPIPINPINPINPIDININPIPIPIPIPIPOPINIPIPIPIPUPIPUPINPIPINPININY «=O 
SVVIGVNANAOOOOoOWWr,r>r>,r>?r i 
WD OL Lrorno wn nnn 
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t 
1 
05 35 Eg 
00 5 D1 
1 13 
ef 
50 0000" BF 
EO : 


D4 $05 “$GETFLD cri,l,sta ; Get circuit state 
50 £9 2261 6399 BLBC RO, X25 _DEACCESS : Error if not found 
01 58 O01 E4 6400 CMPL R8 ANAK STATE_OFF 3 pyreine, circuit off? 
dbBié«édAS3 E7 6401 BEQL x25 DEACCESS 3 if so, DEACCESS cireult 
51 16 00 E9 640 MOVL SFACEVSC. 10_SUCC,R1 3 Signal I0_SUCC to go to next state 
50 01 00 EC 640 MOVL #1,R : ow state change 
05 EF 6404 RSB 


<Zz 
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Low bit clear to avoid state change 
ALL other regs may be clobbered. 
T_QIO_STRT: ; Startup the datalink 
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Woaebb0 ACT O10, STRT - Start the datalink g7 tb 18 4 84:43:32 NETACP.SRCIJNETDLLTRN.MAR; 1 . (75) 
. -SBTTL ACT_QIO_STRT = Start the datalink 
; ACT_QIO.STRT =| Startup the datalink 
: INPUTS: R11 CRI CNR ptr 
: R10 CRI CNF ptr 
5 s LPD ptr 
$ R WQE address 
: RG RCB address 
: OUTPUTS: R5 Unchanged 
$ R1 Next event to be processed 
3 RO Low bit set if state change is permitted, 
A 


ot 


If there is still an 1/0 pending to the circuit, then wait 
a bit for remaining 1/0 to be rundown. 


POPOIPOPIPOPIPIPINIPYNIMYNIPINPIPONIPIPUNIPONINYD 


Ba i is Bi Di Be Bs De De De Be Ds es Bs ee es ee Bs es Bes Be Be De | 


DWFRADOOUMOOM BUNVOOOOSOSSY F FSWUWMOOoooooooooooOOoOOOOOOOOOOOCOoO 


MIPIM 2 2 2 OOOO 


BNAUE WN O OONAULS WN OOONAULS WHO OONO 


; This is done because we may still have messages on the AQB 


ARAPAAAAAAAAAAAAAAPAAPAAAAAAO 
SERRE RRR RRP RRR PREP RRP 


sf § from NETORIVER relating to this circuit left to process. 
F This is done BEFORE the ~ ression timer so that minor 
F delays in processing the AQB messages do not force circuit 
: e 3 recycle to wait a full suppression interval. 
1B A695 FO 643 tSTB LPDSB_ASTCNT(R6) ; Any asynch activity outstanding? 
05 iF F oe BNEQ 18$ :; If yes, then cannot continue 
10 A6 9 F564 TSTB ae cauhaatahes ; Does NETDRIVER still have references? 
06 13 FB 643 BEQL 0$ :; If NEQ, then wait for NETDRIVER 
FA 643 ; to wake us up with CRD event 
51 01 00 FA 6439 188: MOVL #LEVSC_EXIT,R1 ; Exit state table immediately 
OOAS = 51 § f or 208 BRW 90$ ; Exit inhibiting state change 
30 2886 ; Start the ‘'start Syperessian timer to prevent the circuit from 
00 644 3; restarting too rapidly. If the RECALL TIMER parameter is 
ore: ; specified, use that delay. Otherwise, use a fixed timer value. 
01 €3 2300 644 BBCS = #LPDSV_STRTIM,- ; If BS then timer is already ticking 
03 fy 31 > ot oe POSW_STS(R6),10$ 
51 20 “8 9A 8 449 10S: MOVZBL LPDSB_PTH_INX(R6) ,R1 3; Get LPD index 
Pe ee 78 450 ASHL #16, 3; Shift into upper word 
51 O11A 8F  B0 | 643] mOVW #<<WOESC QUAL _DLL>aB>!~ ; Overlay QUAL and EVT fields 
52 00002412°EF 9€ 1 $488 MOVAB STRT_TIMER_TICK,RE 3 Setup action routine address 
1C 6454 SGETFLD cri,U,rct ; Get RECALL TIMER parameter 
03 50 €8 6455 BLBS RO : If not set, use default timer 
58 QA 0 6496 V #TRSC_TIM_RESTRT.R ; Provide a default value 
53 00 00989680 8&F A 457 15$: EMUL R8,#10*1000*1000,40,R3 ; Set start supression timer 
occs* 30 9638 BSBW WOESRESET TIM 3; Reset the timer 
54 Q0000000°EF 00 ? 9328 MOVL NETSGL_PTR_VCB,R4 3 Recover RCB address 
4 geet 3: Check if the associated Line is turned on 
42 6462 : 


H 14 


TOLLTRN = Routing & Datalink control Layer 16-SEP-1984 01:21: AX/VMS Macre Vv04-00 Page 155 
Wee bbo ACT O10. STRT - Start the datal ink met) 93:43:32 ENETACP. SREINETDLLTRN.MAR: 1 . (75) 
2AF 6 330 4 463 BSBu CHK_CIRC_START 3; Check if circuit can be started 
38 50 «ED r gi BLBC RO BOS sy : If not allowed, exit 
4 gi : Increment the number of startup attempts we've made in trying 
48 646 5 to get this gircy t initialized. (This counter is used for 
4 e788 ; outgoing X.25 calls to prevent too many charges from piling 
2 2738 ; (up. It also can be used for statistics). 
0B A6 «9% iz on) ince LPDS$B_STARTUPS(R6) : Increment number of startup attempts 
rH gi78 : If the state is set to SERVICE, setup for direct-access mode 
4 gee $GETFLD cri,l,sta : Get the “‘operater’’ state 
09 50S siéEO 5 9976 BLBC 8 3; If LBC then assume ‘‘OFF’’ state 
58 02 01 38 647 CMPL § S*#NMASC_STATE_SER,R8 =: Service state ? 
06 12 eee BNEQ : If NEQ then no 
o path 60s SETBIT LPDSV_DLE,LPD$W_STS(R6) ; Else setup for direct-access 
rf att : For X.25 circuits, use different startup sequence 
03 22 A607 4 64 gras BC aroey X25,LPD$W_STS(R6),65$ ; Branch if not X.25 
0087 1 44 ett BRid x 5_STARTUP ; Use different startup sequence 
36C 648 : If LPDS_TOGGLE is set, then we must toggle the controller or 
36C 648 ; if XM$_ERR_FATAL is set then we must restart the controller. 
3ee oees 3; This check must be made in the UCB. 
52 28 AG «9A 036C «6490 65$:  MOVZBL LPDSB_PLVEC(R6) ,R2 ; Get PLVEC index 
50 1006 OD 70 6491 MOVL LPDSL_UCB(R6) .RO : Get device UCB 
| 74 649 BEQL 0$ : If EQL then none 
oc «ES 76 649 BBSC #LPD$V_TOGGLE,- ; Br if we must toggle the Line 
OF 22 A6 378 6494 LPDSW_STS(R6) ,67$ 3 
01 QOOO0000'EF42 91 3 yah CMPB BLVECSAB DEVER2I ~ : DMC11 ? 
08 13 2383 649 BEQL © 708 atthe : If EQL yes, ignore XM$V_ERR_FATAL 
10 €1 2385 6498 BBC #XMSV_ERR_FATAL,- : If BS the fatal controller error, 
03 44 AO 87 6499 UCB$L_DEVBEPEND(RO),70$ ; must toggle controller 
02A6 30 A 6500 67$: BSBW TOGGLE _LINE ; Toggle the controller 
4 $28) 3 «e-ignore errors 
> 6308 : Reset the Circuit characteristics 
Hn 6505 70$: SCNFFLD cri,s,chr.R9 : Identify characteristics buffer 
52 1406 =3C 2396 «65 6 MOVZWL LPD$W. CHAN(R6) ,R2 : Get 1/0 channel 
51 Be 98 65 CLRL R ; Clear illegal 1/0 modifier mask 
DC63' 9A 65 3 BSB we TSSeT _a10u : Get buffer and issue $Q10W 
0650 € 90 65 BLBS RO,200$ ; If LBS then okay, br to continue 
51 00 b AO 6510 0s: MOVL #LEVSC_NO_EVT.RI : Nothing else to do 
0 be A e312 $: Lee R ; Don't allow state change 
A6é 6513 2008: ; 
A6 6514 ; Setup the ‘input packet Limiter’’ value based on the number of 
A6 9212 3 ~©6receive buffers assigned to the circuit's controller This is a 
Aé6 21$ : heuristic based on the idea that controller's requiring more 
Ab 3] : receive buffering (fast Lines, satellite Lines) also should be 
A6é 18 ; allowed more local packet output buffering in order to prevent 
A6 651 ; severe performance degradation. 
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WOaebbo ACT alo. SRT = Start the datal ink ety 2:19:25 (CNETACP.S RCINETDLLTRN.MAR: 1 . (75) 
A6 6 
ie ° ScerFLp cri L,mwi ; Get maximum X.25 window size 
3a 50 8 § LBS 0,216$ 3 if sete, use te as ‘input packet 
+4 : lim ay for non-xX.25 circuit 
0COO 8F 4 PUSHR #*M<R10,R 3; Sav regs 
5B 00000000'EF BA 6525 MOVL NETSGL_ tNR. "PLI. R11 i Get PLI root block 
A C 8 § CLRL R 0 3; Search roe be ining of list 
58 28 A6 C MOVZBL _— wet R8 3; Search key i s PLVEC index 
C7 6 8 SSEARCH e egl pei ol, plvec 3; Find PLI's CNF block 
0D 50 Dg 3 é ; + LBC then not found 
D9 6530 SGETFLD 0% Nt Stn : Get number of receive buffers 
88 gf EB $3 1 205$:  POPR “m<r10,R11> ; Restore regs 
0 EA § BLBS RO.2105 3; If LBS then <pli,l,bfn> value exists 
9 ED 65 MOVL #4,R8 : Use 4 as the defau 
1F 2 8 4 82 : 210$: #MOVB R8,LPDS$B_XMT_IPL(R6) ; Use it as input packet Limiter 
F4 65 § : Issue startup Q10 
F4 8 : 
51 F4 6538 €LRL : No 1/0 buffer needed 
0608 F6 6539 BSBW RE TSDLL Q10_CO 3; Allocate and init WQE (co-routine) 
57 28 A6 3F9 6540 MOVZBL LPO$B_PCVECTR6) ,R7 3; Get PLVEC index 
01 00000000'EF47 3FD 6541 CMPB ply ECSAB_DEVLR71,- : DMC? 
405 O20¢ seyret. bev pac 
0S 12 2405 654 BNEQ $ : If s 
0034'c2 58 BP 407 6544 MOVL paret ghemetinrstka) 3 Setup’ DMC # buffers parameter in P3 
0000°BF 3C 2460C 6545 240$:  MOVZWL ei6$ MODE !- : Setup the default function code 
50 410 0346 itt STARTUP, RO 3 
05 2411 654 RSB 3; Return to issue QI10 
sis 30 
412 6550 ; The start supression timer has expired. Another attempt at starting the 
412 6551 ; datalink should be initiated. 
41 0328 3 
412 655 
41 6554 STRT_TIMER_TICK: 
EA35 30 2412 6555 BSBw FIND _WQE_CTX : Locate CNF, LPD, ADJ blocks 
07 50 €9 2415 6556 BLBC R no lon — exists, skip event 
418 6557 CLRBIT LPOSV STRTIM,LPDSW_ sTs(Ra) : 4 KR. mer no longer running 
E974 30 41C 6558 BSBW ROC_EVT ; Process the event 
E966 0 241F 6559 10$: BSBW KILL WQeE Deallocate the WQE 
05 2422 6560 RSB : Return to caller 
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V ACT_QIO_STRT = Start the datal ink -SEP-1984 02:19:25 (CNETACP.SR RCINE NETDLLTRN.MAR; 1 (77) 
d $3 
4 64 : Startup X.25 datalink 
253 eee * 
4 ? e X25_STARTUP: 
4 8 SGETFLD ert mwi 3; Get maximum X.25 window size 
5302 50 £8 26 636 BLBS 0.6 § : Use it, if specifie 
04 BO 433 6570 mov : Use default value of 4 
1F ie 8 9 436 6571 62$: Ove TPDSB. XMT_IPL(R6) ; Set input packet Limiter 
43A 6276 SCLTFLD oot usé : Get circuit usage parameter 
0A 50 E9 24647 657 of : If not present, defaulting error 
446A 657% SDISPATCH R : Dispatch on X.05 circuit usage 
44A 6575 <NMASC Crus _PER,100$>,- : Permanent virtual circu 
44A 9278 <NMASC_CIRUS_OUT, 00$>.- 3 Outgoing switched Sleeve circuit 
orn tts <NMASC_CIRUS_INC,300$>,- ; for incoming call 
51 00 00 2454 $395 80S: Rov #LEVSC_NO_EVT,R1 ; No more events 
50 D4 2457 6580 CLRL RO ; Do not allow state change 
05 2459 6581 
tan 6588 
45A 6584 ; Schedule PVC we event. This is done as a separate event because 
mn $282 : ; PVC startup is a multiple step process, since 3 QI10s have to be issued 
co 545a 6587 100S: BBs #LPDSV_PVC_ACCESSED : Is circuit already ACCESSed? 
0B 25 A6 45C 6588 LPD$B_PV cECG(RO) 156s t then skip this st 
88 245F 6589 BISB ALPD PDSA_P ACCESS!= 3; For X.25 startup, “Schedule access, 
460 6590 LEDS. Pye “RESTRT!= 3; restart, and 
460 6591 PDSM-PVC_RESET,=- 3 reset operations for the 
25 A607 260 $236 Lbbse PycFCG(R6) 3 next time we start the X. 25 datalink 
51 18 D0 2463 659 MOVL sLEVSC PVC_START,R1 : Signal PVC startup needed 
50 01 DO 2466 6594 MOVL #1,R ; Allow state change 
05 rs #4 $232 RSB 
51 10 00 246A $397 150$: MOVL #LEVSC_LIN_UP,R1 : $1 ignet circuit is ‘‘up’’ 
50 01 DO 246D 6598 MOVL #1,R0 3 ow state change 
05 2470 6599 RSB 
or} See 
{4 e088 3; Make outgoing switched call for X.25 datalink 
471 6604 2008: ; 
471 2983 ; If we have attempted to make the outgoing call too many times 
471 6 $ ; (controlled by the MAXIMUM RECALLS parameter), then give up 
471 66 3; and marked the circuit ‘failed’. This is done, rather than 
471 66 3 3; = turning off the circuit and deailocating the LPD, so that 
{4 ett : the counters remain around afterwards. 
471 6611 $GETFLD ent L gare ; Get MAXIMUM RECALLS parameter 
F 50 €9 247E 661¢ BLBC gis : If not set, allow infinite retry 
58 A6 «91 «(2481 661 CMPB tb B_STARTUPS(R6),R8 =: Have we exceed the maximum? 
09 18 24 ; 14 BLEQU 10$ ~ :; If not, let it go 
0B A6 94 2487 6615 CLRB =—- LPD$B_STARTUPS(R6) ; Reset &# startup attempts 
51 1€ DO 248A 16 MOVL sLEVSC. FAILED,R1 3; Mark circuit “failed 
50 4 248D 1 CLRL : Do not change state 
5 248F 6618 RSB 3; Process next event 
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f not set) 
cor parameter 
not set) 


ongwor 
Allocate and init WE ico-reutine? 
uffer 


count of DTE string 
NCB 


for call 


Datalink control Laye 
T = Start the datalin Le -SEP=-1984 NETA cP. 
19 ; 
i y : Call PSI to make the call 
6 4 210$:  $GETFLD cri,l,mbl 3; Get MAXIMUM DATA parameter 
? PUSH R8& ; Push value ( 
6624 SGETFLD cri,l.mwi 3: Get MAXIMUM 
6625 PUSHL R8 3; Push value (0 if 
66 § SGETFLD ert 3 num 3; Get remote DTE address 
98 BLBC 0,2 és : If not present, gre error 
628 MOVL Hy : Point to MW1, MBL L s 
6629 MOVL 4#8+ 1415, Ri : Set length of extra Q10 buffer 
? 9 BSBW Ses ub a1 F 
MOVL WwoeEst OLERGTH#P2(R2) : Set P2 to NCB descriptor 
66 § MOVAB BRS) RO™ : Point to actual P 
66 MNEGL RO, (RS) 3; Construct NCB descriptor 
6634 MOVL RO, (R3)+ 
6635 TSTL = (R9) : MAXIMUM WINDOW specified? 
66 $ BEQL 230$ : Branch if n 
66 MOVW #8, (R3)+ 3; Set size ms lten 
6638 MOVW  #PSISC_NCB_WINSIZE,(R3)+ ; Set item code 
6639 MOVL (RO), (R3)+ 3 ‘Store maximum window size 
6640 230$: TSTL 4(R95 ; MAXIMUM DATA Specified? 
6641 BEQL 240$ r onee if n 
664 MOVW #8, (R3)+ 3; Set size mi teen 
664 MOVW #PSI$C NCB PKTSIZE,(R3)+ ; Set item code 
6644 MOVL 4(R9) , TR3)F ; Store maximum packet size 
6645 240$:  ADDW3 #5,R7,(R3)+ : Set size of item 
6646 OVW #pSisC NCB REMDTE,(R3)+ : Set item code 
6647 PUSHR #*M< ng ROoRSS : Save registers 
6648 MOVB =—-R7, (R3S+ ; Move by e 
6649 MOVC R7, (RB), (R3) 3; Move DTE ne ne into 
6650 POPR #AM<R2,R4 ROD : Restore regist 
6651 ADDL 3 suaesc LENGTH*#P2(R2) : Set size in P2. Goocrtates 
665¢ MOVZWL #10$_ACCESS,RO : Setup 1/0 function code 
665 JSB sPye : Queue I/ 
6654 290$: ADDL #8 3; Pop max wtinden & max data 
6655 MOVL PLEVSC_NO_EVT.R1 ; No more eve 
6656 RSB : Exit with RO oat true/false 
ss, 
6659 3; Mark the circuit as being able to accept incoming X.25 calls 
6661 300$: SETBIT LPDSV_INCOMING,LPDSW_STS(R6) ; Mark circuit ptt 
6662 BRW 0$ ; Exit without any state ange 


—— 
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WO4e0b0 ACT PVC. START - Start an X.25 PVC in mul green 19 4 94:43:32 ENETACP. SREINETDLLTRN.MAR: 1 ” (78) 
If 6 és a -SBTTL ACT_PVC_START = Start an X.25 PVC in multiple steps 
IF é $ ; ACT_PVC_START = Start a PVC in multiple steps 
1F 6668 : Inputs: 
Sif e865 eg 
SiF ° 0; R11 = CRI CNR address 
S1F 6671 ; R10 = CRI CNF address 
SiF 2678 3 RO = LPO address 
S1F 6675 ; R5 = WQE address 
aif 6673 ; R4 = RCB address 
A GE { ove 
S1F 6678 : R1 = Next event to be processed 
aif path ; RO = True if state change allowed, false if not. 
a 6681 ACT_PVC_START: 
aif seh ; Determine the next step to be done in the startup process 
52. 2506 04 00 EA 251F 6685 ° FFS #0,#4,LPDSB_PVCFLG(R6),R2 ; Get next thing we have to do 
525 6686 : (NOTE: only use low nibble) 
OA 13 2525 6687 BEQL 900$ :; If nothing left, startup is complete 
527 6688 SDISPATCH R2,<- 3; Dispatch on {lag 
527 6689 <LPD$SV_PVC_ACCESS,110$>,-  ; Issue the I0$_ACCESS function 
527 6690 <LPDSV_PVC_RESTRT,120$>,- ; Issue a ‘'restart confirmation" 
2 f peed e <LPD$V=PVC~RESET, 130$>,- ; Issue a ‘'reset’’ or ‘‘reset confirmation’ 
51 10 DO 2551 66935 900$: MOVL #LEVSC_LIN_UP,R1 3 cine that startup is complete 
50 01 DO 2534 6694 MOVL #1,R0 ; Allow state change 
Be Be 
2 : $632 ; Issue I0$_ACCESS function to access the PVC 
5 : 6699 110$: $GETFLD cri,s,nam : Get PVC name 
70 50 ©=8€9 2545 6700 BLBC :_If not present, CNF is not right 
548 6701 CLRBIT LPOSV_PVC ACCESS,.LPD$B_PVCFLG(R6) ; Indicate this work is done 
51 1 ge 54C 670 MOVL #8+5+T5, : Set length of extra Q10 buffer 
057F OQ 254F 670 BSBW NETSDLL_Q10 CO ; Allocate and init WOF (co-routine) 
0938" ¢2 53 00 238 6704 MOVL R3,WQESC_LENGTH+P2(R2) ; Set P2 to NCB descriptor 
83 65 05 C1 2557 6705 ADDL3 #5,R7,(R3)+ ; Construct NCB descriptor 
83 046 A3 9E 2558 67 : ROVAB 4(R3) . (R3)+ 
83 57 OS al 22 of ADDW #5,R7,(R3)+ 3; Set size of item 
83 18 BO 2563 6708 move #PSI$ NEB PVCNAM,(R3)+ ; Set item code 
3 , 28 6709 PUSHR #*M<R2°R3,R4,R5> 3; Save registers 
83 568 6710 MOVB R7.(R S+ 3; Move by e count of PVC name 
63 68 7 28 2568 6711 vc R7, (RB), (R3) : Move PVC name into NCB 
3¢ BA 36 orig POPR #*M<R2,R3,R4,R5> : Restore registers 
50 o0000'BF 3c 2571 671 MOVZWL #10$ ACCESS,RO : Setup 1/0 function code 
10 A2 18 «90 2576 6714 MOVB #LEVSC_PVC_STAR? ,WOESB_EVT(R2) ; Return here if 1/0 successful 
05 gfA ort? RSB ; Issue 1/0 and exit 
Ht a > Issue “restart confirmation’ on the PVC, and ignore any error if there 
578 at 3; is no restart to confirm. This is done because the PVC is always active, 
278 14 : and a restart operation puts the circuit into a known state. 
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Waebbo ACT_P Me TAR = Start an 4°35 pve in mul aot} 94:43:32 ENETACP. SREINEYDLL TRN.MARS 1 . (78) 
g 120$: SETBIT LPDSV_PVC_ACCESSED,- 3; Indicate PVC now ACCESSed 
8 LPD$B_PVCFLG(R6) 
CLRBIT LPDSV_PVC_RESTRT,LPDSB_PVCFLG(R6) ; Indicate this work is done 
4 CLRL R1 3; No Q10 buffer neede 
§ BSBW NETSDLL_Q10_CO : Allocate and init WQE (co-routine) 
#PSISC_RESTART WOESC_LENGTH*#P4(R2) ; Set P4 to “restart’’ 
MOVZWL #10$_NETCONTROL 3; Set 1/0 function code 
#LEVSC_PVC_START WOESB_EVT(R2) ; Return here if 1/0 successful 
MOVB #LEVSC_PVC_START ,WQESL_PM2(R2) ; Return here if 1/0 fails too 


RSB ia 3 Issue 1/0 and exit 


: Issue “reset” or “reset confirmation’ on the PVC, and ignore any errors. 
3 This is vg, clear any outstanding received messages from the previous 
3; user o @ . 


130$:  CLRBIT LPDSV_PVC_RESET,LPDSB_PVCFLG(R6) ; Indicate this work is done 
CLRL ; No Q10 buffer needed 
BSBW NETSOLL_Q10_CO : Bi besete and init WQE (co-routine) 
MOVL #PSISC_RESET,WOESC_LENGTH+P4(R2) ; Set P4 to ‘'reset"’ 
MOVZWL #10$ NETCONTROL,R ; Set 1/0 function code 
MOVB #LEVSC_PVC_START ,WOESB_EVT (Re) ; Return here if 1/0 su 
MOVB #LEVSC_PVC_START,WQESL_PM2(R2) ; Return here if 1/0 fa 
RSB : Issue 1/0 and exit 
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ccessful 
ils too 


Come here if an error was encountered before beginning the startup 
to abort the operation, and wait until the supression timer causes it to 
be tried again. 


0S: MOVL #LEVSC_NO_EVT,R1 ; No more events 
CLRL RO : Don't allow state change 
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VO4-00 ACT_ X58 Me aLt - Accept Caenten Xe 25 call "gc set 83:95:38 NETACP.SRCJNETDLLTRN.MAR; 1 - (99) 
3 - ~SBTTL ACT_X25_CALL = Accept incoming X.25 call 
; ACT_X25_CALL = Accept incoming X.25 call 


wowww 


754 
755 ; 
uk 
2c 67 8 : This circuit has q font been determined to be puateing te for an incomin 
BE 6759 ; call and a Located for that purpose. ALL we have to do for this even 
5BE 6760 ; is issue the ACCEP On successful 1/0 completion, the transition 
BE 078) ; will be made to the Seulten Initialization state. 
SBE o788 3 Inputs: 
SBE 6764 ; 
5BE of 5 3 R11 = CRI CNR address 
5BE 67 $ : R10 = CRI CNF address 
5BE 6767 ; R6 = LPD address 
SBE 6768 ; RS = WQE address 
5BE e444 ; R4 = RCB address 
5BE 6770; 
5BE 6771 ; Outputs: 
SBE errs $ 
5BE 6775 ; R1 = Next event to be processed 
ges orre ; RO = True if state change allowed, false if not. 
5BE 9776 ACT_X25_CALL: 
51 14A5 3C 25BE 677 MOVZWL weet -PM2(R5) ,R1 : Get size of X.25 N 
51 08 £8 5C2 6778 ADDL ; Add in size of NCB’ _ 
0509 0 25C€5 6779 BSBW Ne fS0. ; Allocate and init WQE (co-routine) 
0038'C2 53 0 5¢8 9780 MOVL woESt. LENGTHsB2(R2) 3 Set P2 to NCB descriptor 
83 14 AS C 25CD 6781 MOVZWL ues Me CR R5),(R3)+ 3 RB. NCB descriptor 
83 04 A3 9E 2501 ore MOVAB 4(R3) 
3C BB 5D5 678 PUSHR ener. R RG ,RS> : Save registers 
14 AS 5D? 6784 MOVC worst PM2(R55 ,- : Move NCB into 1/0 WOE 
63 24 AS SDA 6785 WQE$C “LENGTH(RS), (R3) 
3C «6BA 60625DD «06786 POPR WoRCR2° R3,R4,R5> : Restore registers 
13. 10 25DF 6787 BSBB Hoy CIRC_START ; Check if circuit can be started 
06 50 ? 5E1 6788 BLBC 0$ : Branch if not 
50 0000°8F C 3564 6789 MOVZWL F1O$ ACCESS! 10$M_ACCEPT, RO 3 satus 1/0 function code 
05 HH gree RSB : Issue Q10 and exit 
SEA 6792 ; Circuit is not in a state to be started - change Q10 to be a ‘‘REJECT’’ 
geA 679 : t and on 1/0 senekanton. cause the circuit to be recycled. 
50 O000'8F 3C 25EA 6795 ios: MOVZWL #10$_ACCESS! 10$M_ABORT,RO pots 1/0 function code 
10 A204 «490 «OSEF 679 MOVE  #LEVSC_REQ_SHUT,@QE$B_EVT( ko); Recycle circuit on success 
05 25F3 679 RSB : Issue Q10 and exit 
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CHK CIRC START = Check i if of Layer can be os iets Oh: 49:32 NETACP.SRCIJNETDLLTRN.MAR; 1 . (85) 
r} 144 -SBTTL CHK_CIRC_START = Check if circuit can be started 
2 ? 1 4g CHK_CIRC_START = Check if circuit can be started 
F4 6 : ; Determine if the circuit can be started by igen the associated 
sr4 ? ¢ ; line state, and by making sure that the ACP’s state is on. 
F4 : Inputs: 
SF4 g $8 3 oe 
5F4 6 83 ; R4 = RCB address 
ore 6 y 3 R6 = LPD address 
fe é 13 : Outputs: 
ar 6 18 : RO = True if startup allowed, else false 
fe ? 12 : No other registers are destroyed. 
5F4 $817 CHK_CIRC_START: 
52 OD ee oni8 PUSHL R2 ; Save registers 
38 3 : Check to make sure that the associated Line is ‘‘on" 
52 28 A6 9A 25F6 68 § MOVZBL LPDS$B n> + pia R2 3; Get the associated Line index 
OOOO0000'EF 16 25FA 68 JSB NETSGET_ : Setup the Line 
2A 50 =€9 600 6824 BLBC 258 | LBs gran sets failed 
OA 22 A6 07 =«©€€0 2603 «6825 BBS #LPD$V 125 ttt i apa” °25$ ; X.25, t there is no assoc. line 
00 00000000'EF42 91 608 68 6 CMPB puve cere sta stat ; Is ine’ Line “on 
18 «12 4 one BNEQ 80$ : If NEQ no, can't start circuit 
z61 e880 ; Check to make sure that the ACP state is not ‘‘off*’ or ‘‘init’’. 
261 6836 25$: DISPATCH TYPE=B a Depa <- 
361 683 <ACPSC_STA_I, 80$ ; Initializing 
612 6834 CACPSCA STAIN, . 50> ; On 
61 oe? <ACPSC_STA_R, 5083/- - : Restricted 
61 6836 <ACPSC_STA_S, 30$>,- 3; Shut 
612 6837 <ACPSC_STA_F, 80$>,- : Off 
oi ttt . <ACP$C_STA_H, 80$>,- ; Hibernating (due to bug) 
54 AG B5 6 6840 30$ TSTW RCBSW_MCOUNT(R4) 3; Time to shut down ? 
05 13 26 8 6841 BEQL 80$ 3: If so, 3 away 
50 4 D0 26 6 4 50$: MOVL #1,R0 3; Successful 
2 6 2 6 43 BRB 90§ 
50 D4 262D 6845 80$: CLRL RO : Do not allow circuit on 
52 BEDO 262F 6 rf 90$: POPL R2 ; Restore registers 
05 2632 684 RSB 
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~SBTTL TOGGLE_LINE = Shutdown and startup Line 


$" TOGGLE_LINE - Toggle Line state 

; The line is indicating a fatal device error. Turn the device 

: OFF and ON in order to reinitialize it. 

; Inputs: 

; R2 = PLVEC index 

; Outputs: 

; RO = Status from startup operation 

fOGGLE_LINE: ; Toggle Line state 
PUSHR 


#OM<R2 RS /RO-R10,R11> 
MOVL NETSGL_CNR_PLI,R11 
R10 


; Save crucial regs 

; Move PLVEC pointer to safe reg 
; Get PLI root block 

; Search from begining of List 

; Search key is the PLVEC index 


MOVL  R6,R8 
SSEARCH eq pli, l.plvec : Find PLI's CNF block 


LBC e ; If LBC then not found 
MOVZBL PLVECSAB_STATECR6],-(SP); Save previous state 
MOVB NMA STA - 
PLVECS$AB_STATELR6] 
BSBB 110$ ; Turn the Line off 
> «e-eignore errors 
CVTILB) =((S ; Prepare to turn Line back on 


3; Prepare to turn Line off 
P)+,- ; 
PLVECSAB_STATECR6) F 
B ; Turn the Line on 
100$: POPR #*°M<R2,R5,R6,R10,R11> ; Restore coe 
B ; Return status in RO 


110$: MOVZWL PLVECSAW_CHANCR6],R2 ; Get 1/0 channel 
R1 ; Clear “‘illegal’’ 1/0 fct code mask 


LRL ; 
SCNFFLD pli,s,chr,R9 ; Setup characteristics buffer i.d. 
BsBM ETSSET_aiow : Turn the Line on 


15 ae 
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ransmit pending messages “SEP-1984 02:19:25 CNETACP.SRCINETDLLTRN.MAR; 1 (82) 
9 
9 
9 
9 


68E 6908 BSBW CHK_IO 3; Okay to xm 

691 6909 BLBC —_ RO, TOS - If LBC no 

694 FFS #0,#8,LPDSB_XMTFLG(R6),R2 ; Get xmit flag 
sStboarch’h a 


2 
eo 
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-SBTTL ACT_XMT = Transmit pending messages 
: ACT_XMT = Conditionally xmit a message 


INPUTS: R11 CRI CNR ptr 
R10 CRI CNF ptr 

7 ADJ address 
6 LPD address 
5 WQE address 
4 RCB address 

OUTPUTS: 5 Unchanged 

1 Next event to be processed 

0 Low bit set if state change is permitted, 
Low bit clear to avoid state change 
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$38 ALL other regs may be clobbered. 
$909 CT_XMT: 3: Xmit messoge if possible 
0422 30 t? 
1A 50 «£9 
52 24A6 08 00 EA 
12 13 269A ; If EQL then none set 
69C PATCH R2,<- ; Dispatch on xmit flag 
<LPDSV_XMT_DALLY,XMT_DALLY>,- ; Wait to send start message 
<LPDSV-XMT-STR, XMTSTR>,- ; Transport ‘‘Start’’ message 


T_RT>,=- Transport ‘'Routing’’ message 
® “art XMT_ART>,= ; Transport ‘‘Area Routing’’ message 
<LPDSVXMT—IDLE, 100$>,- ALL Transport init messages xmitted 


> 
10$: MOVL #LEVSC_EXIT,R1 3; Nothing to do, exit state table 
poy #1,R0 ; Allow state change 


<LPDSV_XMT ee eee : Transport ‘Werification™ message 


100$:  CLRBIT LPDSV_XMT_IDLE,- 
LPDSB_XMTFLG(R6 
MOVL S*#LEVSC_XMT_IDL 

mOvL #1,R0 


Clear the flag 


) 
E,R1 Xmitter is idle during Transport init 


Allow state change 
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wero Tan - Rous ing & Datal 
vO04- XMT_DALLY = Dally before sending start m 5-SEP-1984 NETACP.SRCIJNETDLLTRN.MAR; 1 
oe e3 0 P ~-SBTTL XMT_DALLY = Dally before sending start message 
+3 23 ; : XMT_DALLY = Dally before sending start message 
6CO 6934 ; This routine is called to dally for a while before sending out the 
6CO 6935 ; Start message. This is so that we can ergper sy initialize with older 
6CO 69 § ; nodes which do not properly parse/ignore Phase IV start messages. By 
6CO 6937 ; dallying a while before sending, it gives us a chance to hear his start 
6CO 69 8 ; message, and send the correct version of the message based on the type 
+3 6939 ; of message he sends. 
6€0 6940 ; 
6CO 6941 ; Inputs: 
6C 2206 ; 
6CO 6945 ; R11 = CRI CNR address 
6CO 6944 ; R10 = CRI CNF address 
6CO 6945 ; R7 = ADJ address 
6CO 6946 ; R6 = LPD address 
6CO 6947 ; 
6CO 6948 ; Outputs: 
3 6949 ; 
6CO 6950 ; None 
6CO 6951 ;- 
6C0 0326 XMT_DALLY: 
51 20 A6 =863C «(2600 «=—695 MOVZWL LPDS$W_PTH(R6) ,R1 ; Get LPD ID 
51 51 10 78 26€4 6954 ASHL 6,RT,R1 : Shift into upper word (REQIDT) 
51 0100 8F B80 268 6955 MOVW  s#<WOESC _QUAL_DLL@8>!- =: Setup timer qualifier 
6CD 6956 LEVSC_NO_EVT|R1 3 and timer event 
53 00000000 01312000 8F 7D 26CD 6957 MOVQ #TRSC_TIA_DALLY*- 3; Set dally timer 
608 6958 10*1000*1000,R3 ; : 
52 E6A4 CF 43 608 6959 MOVAB NETSOLL_PRC_WQE,R2 3 and process event when it fires 
p920' 3 6DD 6960 SSBW  WOQESRESET TIM ; Start timer 
6E0 6961 CLRBIT #LPOSV_XMT_DALLY,- 3; We've done this now 
6E0 696 LPD$B_XMTFCG(R6) 
51 01 DO 2665 696 MOVL #LEVSC_EXIT,R1 ; Exit state table immediately 
50 01 DO 26E€8 6964 MOVL #1,R0 ; Allow state change (if any) 
05 26€B 6965 RSB 
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at 
ns 
gee $367 -SBTTL XMT_STR = Transmit start message 
eee 6368 ; XMT_STR = Build and transmit a Transport ‘‘start'’ message 
6EC $394 : INPUTS: R11 CRI CNR ptr 
6EC e308 ; R10 CRI CNF ptr 
6EC 6975 ; R7 ADJ address 
6EC 6974 ; R6 LPD address 
Pee 48) 3 RG RCB address 
6EC $999 ; OUTPUTS: R5 Unchanged 
6EC 9378 3 R1 Next event to be processed 
6EC 6979 ; RO Low bit set if state change is permitted, 
eee 2380 : Low bit clear to avoid state change 
eee eons $ ALL other registers may be clobbered 
6EC 6984 XMT_STR: ; Xmt a transport initialization msg 
GEC 6985 ASSUME TR3C_STR_LNG LE TR2C_STR_MXL 
51 50 8F 9A 26EC 6987 MOVZBL #TR2C_STR_MXL,R1 ; Setup size of P1 buffer 
0305 30 oro 6988 BSBW TSOCL_QTO_C¢ 3 Call co-routine to init WQE 
003C'C 5 DO 26F3 6989 MOVL »WQEST_LENGTH+P1(R2) ; Point to buffer 
0038'C 53 CE 26F8 6990 MNEGL R3,WQESC_LENGTH+P2(R2) ; Bias 1/0 buffer size 
5B O0000000°EF D0 26FD 6991 MOVL NETSGL_CAR_LNI.R11 ; Set CNR for local data base 
5A QO000000'EF 00 $008 699 MOVL NETS$GL_PTR_LNI,R10 ; Get LNI CNF 
50 1D A6 9A 270B 699 MOVZBL LPD$B_ETY(R6) ,RO ; Get our (adapted) ‘'node type'’ 
50 QOO0014A"EF4O 9A 270F 6994 MOVZBL_ PTY _TO_PHASELROJ,RO ; Get our (adapted) ‘‘phase”’ 
717 +6995 SDISPATCH RO,<= 
717 6996 < + $TRQ>.- ; Phase II 
717 +6997 <3,STR3>,- ; Phase III 
717 +6998 <4,STR4>> 3; Phase IV 
51 01 DO 2721 6999 MOVL  S*#LEVSC_EXIT.R1 ; Don't do anything 
50-94 ose 7000 CLRB RO : Inhibit state change 
05 f $ a4 ; Return with LBC in RO 
2 08 ; Build and transmit Phase II ‘‘init'’ message 
57 DD 2727 7°05 STR2: PUSHL R7 ; Save registers 
83 58 8F 90 2729 36 MOVB #TR2C_MSG_INI,(R3)+ ; Enter message type code 
83 01 90 4 4 one MOVB #TR2C_INI_STR,(R3)+ ; Enter message sub-type code 
00 EF 27 7 09 EXTZV #TR4$V_ADDR_DEST,- ; Get our address (without area) 
50 OE A4 OA 732 7010 #TR4$S_ADDR_DEST ,RCBSW_ADDR(R4) ,RO 
50 A4 27 7011 MULW RO 3 Start converting address to EX-2 field 
50 QO 86 2739 rig pies #2,R0 ; Now bits 7-15 are shifted 
83 50 0080 8F AD 27 mt BISW # 48 ,RO.(R3)+ ; Set the extend bit and enter it 
742 7014 SCNFFLD Lni,s,nam,R9 : Identify local node name field 
00A1 0 2749 7015 BSBW MOVIT ; Fetch and enter the string 
$3 0 74C 7 18 vB #TR C_STR_FCT »(R3)+ ; Enter supported functions 
74F 701 MOVB #TROC"STR7REQ!- ; 
ee 7 8 TR2M_REQ VRE ,(R3)+ ; Enter ‘requests’ 
3 50 a6 BO 2752 701 MOVW  LPDS$W"BUFSIZ(R6),(R3)+_; Enter block size 
3 CAS OB 756 7020 MOVW RCBSW-ECLSEGSIZ(R4) (R3)+ ; Enter NSP segment size 
3 38 Aa OB z3A 7021 MOVW RCBSW-MAX_LNK(R4),(R3)+ ; Enter max Links 
83 01 ef 3 7 4 7 ¢ MOVW #*X<O0T03>7(R3)+ : Enter Phogett compatable routing 
3 4 2765 7 CLRB (R3)+ ; version (5.1.0) 


& Datalink control Lever tb 4 3: $4 32} AX/VMS Macro V04-00 Page 1s, 


Me = Routing 
V XMT_STR = Transmit start message “-SEP-1984 INETACP. SRCINETDLLTRN.MAR; 1 
83 0103 8F 0 2765 7024 MOVW #*X<0103>, (R3)+ :; Enter Phasell compatable NSP version 
BS 82 $58 50se CLRB CRS) : (3.1.0) . 
6 7 § SCNF FLD (Ry 3. ide,R9 5 Identify system version field 
7 19 773 7 SBB wovit vit i Fetch and enter the string 
57 8ED 775 7 8 L R ; Restore registers 
66 = 11 eee 7 4 BRB XMT ; Return to co-routine to xmt the msg 
at) 1 ; Build Phase III ‘'start’’ message 
8 0 90 277A 4 : STR3:  MOVB #TR3C = ¥¢: (R3)+ Bey msg type code 
00 EF 277D 7034 EXTZV #TR4$7_A DEST,- our address (without area) 
50 OE AG pA 77F £0 5 aR R4$ “ADDR DEST. -RCBSW_ nbontna’s RO 
8 0 60 res 7 § Enter the local address in msg 
786 £0 SDISPATCH ata ETY(R6) 1YPE=B, <= 
786 7038 ADus Y_PHS, 3; Phase III routing 
786 7039 DJSC"PTY_PH3N 3$5> : Phase III endnode 
83 ¢ 79 4 epee 2$ a RSC_ATY_PH3, URE) ; Set local node type (Level 1 Routing) 
83 03 90 2794 res 3$: MOVB #TR3C_NTY afr. (338 ; Set local node type (Nonrouting) 
797 7043 108: SETBIT #TR3V_REQ-VRF,-1(R3) 3; request for verification 
83 50 A6 BO 279C 7044 MOVW = LPD SW OFSIZ(RG) « CRS) + ; Enter block size 
83 0301 8F B60 sth 7045 MOVW #TR3C_TIVER, (R3)+ 3 Enter routin vores number 
83 00 90 27A5 7046 MOVB #0,(R3)+ : Enter user ECO num 
83 94 27AB 7047 CLRB ss (R43) + 5 inter the verification seed 
34 «CO«W1 ~~ pee BRB XMT 3; Transmit the message 
ha pay ; Build and transmit Phase IV ‘'start'’ message 
8 01 90 27AC ras STR4: fove #TR4C =SG STR, (R3)+ : Enter msg type code 
83 OF AS BO 27AF 705 RCBSW-ADOR(R4S,(R3)+ =; Enter the local address 
783 7054 SDISPATCH CPDSB BEV CRS, TYPE=B, <- 
7B3 7055 <ADJSC_ $>, ; Phase IV level 2 routing 
78 £036 <ADJSC_PTY rate - 3; Phase IV routing 
7B3 705 <ADJSC— PTY “pak 3$5> ; Phase IV endnode 
83 02 90 1B 2058 2s nove #TRAC_ ATY_Rou, (R : Set local node type (Level 1 Routing) 
83 01 90 arcs 7060 1$ MOVB #TR4C_NTY_ARO, (R3)+ ; Set local node type (Level 2 Routing) 
33 11 27C6 Pp) BRB 10$ 
83 0 90 27¢8 7 6 MOVB #TR4C_NTY -NROU, {A} : Set local node type (Nonrouting) 
7CB 70635 10$ SETBIT #TR4V_REQ-V (R3) : Set request for verification 
83 5046 BO 2700 7064 MOVW LPDSw sane (R3)+ : Enter block size 
83 02 680 2704 7065 MOVW #TR4C"T 3; Enter routing version number 
83 00 90 2707 7 96 MOVB #0, (R 3; Enter user ECO number 
83 18 AG 80 7DA 706 MOV {GSU INT _TLK(R6D ,(R3)s : Enter hello timer 
8 4 M3 re CLRB (R35)+ : No optional data 
43 7070 ; Transmit message 
0038'C2 53 CO 27E 702 XMT: ADDL R3 WQESC_LENGTH+P2(R2) ; Calculate 1/0 buffer size 
50 00° DO 27&5 707 MOVL -#10$_WRIT TeL LBLK.R RO : Setup 1/0 function 
vee 7074 CLRBIT LPDSV_RMT 3 No. further need to send message 
768 7075 LPDS6_ XATPLGtRS) : 
0S 27EC 7 % ; Return to co-routine, then to caller 
7ED 707 
7ED 7078 : 
D810° 30 27ED 7079 MOVIT: BSBW cur ecg! FIELD 3; Fetch the strin 
83 65 90 27F0 7080 MOVB R7,(R35)F 3; Enter count field 


vou=bb0 fe An? anne Yseectage 83:45:33 YNETKCE. SRESREYDLL oRW.man:1 "29° (82, 


MOV1 TU : Go to end of loo 
83 MC1: AOvB ( feu (R3)+ t paver text without clobbering RO-R5 
FA HH 3 MOviTu: SOBGE R7,MC1 : Loop for each charact 
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vou XMT_VRF : Transmit verification message B7SEp 19 4 83:49:38 ENETAC «SRC INETOLLTRN.MAR; 1 ’ (85) 
4 : -SBTTL XMT_VRF = Transmit verification message 
gr 3 XMT_VRF = Build and transmit Transport verification message 
7F : INPUTS: R11 CRI CNR ptr 
7F 3 R10 CRI CNF ptr 
7F : R7 ADJ ptr 
7F s R6 LPO ptr 
ce : RG RCB ptr 
7F : OUTPUTS: RS Unchanged 
7F : R1 Next ‘event longword’’ to be processed 
7F 3 RO Low dit set if state change is permitted, 
44 ; Low bit clear to avoid state change 
gr ; ALL other registers may be clobbered 
7F KMT_VRF: ; Xmt Transport verification message 
5B 09000000"EF 90 37F MOVE NETSGL_CNR_NDI,R11 S Set CHR for remote node date base 
58 04 A? C 280 MOVZWL ADJ$W_PNA(R7),R8 ; Get partner's node address 
06 12 0 BNEQ 3; Not yet known Q 
51 01 00 0 MOVL S“*#LEVSC_EXIT,R1 ; Partner is not yet known, - i.e., 

0 ; _no ‘start’ message yet 

50 94 0 CLRB RO :; Inhibit state change 

05 208 RSB 3; Return with LBC in RO 

8 : : Get the transmit verification password 

57 0 PUSHL 7 Save ADJ address 

o7Ec" 30 ro eG TENDS BY ADS Find NDI CNF for partner node 


Zero -_—€,,- string size assuming 
no NDI was found 
If LBC then no NDI was found 
Get transmit password descriptor 

-R8 = 0 on return if field is null 
Pass password descriptor in R8/R9 
Restore ADJ address 


BLBC RO,30$ 

S$GETFLD ndi,s,tpa 
30$: MOVa R7,R8 

POPL R7 

; Build and transmit the message 


51 46 BF QA MOVZBL #TR_C_VRF_LNG+2,R1 3; Setup size of 1/0 buffer ;! +2 is tmp 
29 30 BSBwW N TSOcL ajo co : Call co-routine to init WE 
003C'C 5 dO MOVL R5,WQE FALERG THEI (RG) : Point to buffer 
0038"C 5 E MNEGL R35,WOQESC LENGTH+P2(R2) ; Bias 1/0 buffer size e. 
50 1D AG OA MOVZBL LPOSB_ETY(R6),RO : Get our (adapted) ‘node type 
50 OO000014A'EF4O QA MOVZBL_PTY_TO_PHASECROJ,RO ; Get our (adapted) ‘'phase’ 
SDISPATCH RO,<= 
<3-668>.- Phase I1 
<3,50$>,- Phase III 
Phase IV 


Don't do anything 
Inhibit state change 
Return with LBC in RO 


<4,40$>> 
MOVL S*#LEVSC_EXIT.RI 
CLRB = RO 
RSB 


51 9 D0 
+g 


WANNA AANA ARIRIRNNNNNNIN 3 3 3 3 9 3 3 2QOOD00000000000900050MMRMRM 


RO ODNOA NE WIN 9 ODNANE UID 9 OD NAME WN OOO NAUE WO OONAULS WHO OONO 


: Build Phase IV header 
Move #TR4C_MSG_VRF ,(R3)+ ; Enter message type code 


i i > 
a a a a i a a kk td dd dd td dd 2 8 8 8 I IOO OOO OOO OCOOOCOO 


rx 


83 03 90 


= 
oS 
ed 
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mit verif cation message made 3:95:38 NETACP.SRCIJNETOLLTRN.MAR; 1 “ (85) 


RCBSW_ADDR(R4) , (R3)+ ; Enter local node address 
RB, (R3)+ 


Sie TRN : 


; Enter length of password 
R8,RO : potee msg psw field size 
70$ : Continue in common 
Build Phase III header 


#TR3C_MSG_VRF ,(R3)+ ; Enter message type code 
#TR4$0_ADDR_DEST,- ; Get our address (without area) 
aT Sheiesermary 23 


WOWOAWOM 


PAEAAAAAOWM 


w 
oS 
ed 


RO,(R ; Enter local node address 
Re. AR + ; Enter Length of password 
R8,RO ; Setup msg psw field size 
70$ ; Continue in common 


: Build Phase II header 


MOVB #TR2C_MSG_INI,(R3)+ ; Enter message type code 
MOVB #TR2C_INI_VRF,(R3)+ ; Enter message sub-type code 
MOVL #8,R0 ; Setup msg psw field size 


Move the password 


ge R4 ,R5> ; Save regs : 
R8,(R j #6,R0, (R3) ; Move the password - null fill 
#*M<R2 R4,R5> ; Restore —_ 
R3,WQE$C_LENGTH+P2(R2) : Calculate I/O buffer size 
s*4108 WRITELBLK,RO : Setup 1/0 function 
LPDSB_XMTFLG(R6) 


UsSAAAAS tee 


SWDWNOMDAAPCAOWOOMOOMSPNLS—O 


PEEL APXAXAAD AAs 


WN OOONAUS WN O ODNAOULSWNOOONOULSW 


; No further need to send message 


i te | 
Oe a ee a a a do 


89 
89 
89 
89 
89 


SNNNO 


; Return to co-routine, then to caller 
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yO4-000 XMT_RT ~ tre nsmit a routing message "f SEP-1984 $3 :49538 NETACP.SRCIJNETDLLTRN.MAR; 1 (86) 
90 t123 -SBTTL XMT_RT = Transmit a routing message 
20 aL ; XMT_LRT = Transmit a routing message 
90 518 $ INPUTS: R11 CRI CNR ptr 
9D 4 0; R10 CRI CNF ptr 
9D 7181; R7 ADJ per 
9D 71 § $ R6 LPD p 
9D 7185 ; R4 RCB Oddress 
90 7184; 
90 7185 ; OUTPUTS: R5 Unchanged 
9D 71 § : R1 Next event to be processed 
71 : RO Low bit set if state change is permitted, 
38 f 3 3 Low bit clear to avoid state change 
38 £139 : ALL other regs may be clobbered 
9D £138 XMT_RT: Xmit routing message 
9D 719 SDISPATCH LPD$B Lyon -TYPE=B, < : If we are an endnode, 
89D 7194 <ADJSC_ PH4N,110$>,- ; never send rtg messages 
89D 7195 <AD JSC pry ~PHIN, 110835 
OA EO 28AC £138 BBS 4 ty : If broadcast circuit, always 
70 22 A6 BAE 719 LPDSW Vets ERG) .XMT_ RT4 ; send Phase IV routing messages 
50 1D A6 9A 2881 7198 MOVZBL tPDSB ETY(R6) ,RO ; Get our (adapted) ‘node type’ 
04  O000014A'EF4O 91 2885 7199 CMPB —- PTY_TO_PHASELROJ,#4 ; Are we supposed to be Phase IV? 
62 13 4 4 39 BEQL XMT_RTS 3 so, go to Phase IV routine 
= i 8 s Allocate and setup the buffer 
51 SA AG 3C 28BF 7204 MOVZWL RCBSW_MAX_ADDR(R4) ,R1 : Get number of nodes 
51 51 CO 28C3 7205 ADDL Ri, : Need 1 word per entry 
51 05 ¢° 8C6 7206 ADDL #3+2,R1 : Add in header and trailer 
0205 0 2809 7207 BSBW NETSOLL 3; Call co-routine to ehiaset buf fer 
eee 53 dO 28CC 7208 MOVL TMOESC. OLERGTHSPI(R (R2) ; Point to 1/0 buffer 
0038'°C os ©6| 6 4 f MNEGL *WOESC “LENGTH+P2(R2) ; Bias the 1/0 buffer Length 
8D6 7211 ; Build the message 
806 7 \¢ : 
57 OD 2806 721 PUSHL 4 : Save registers 
83 07 90 2808 7214 MOVB #TR3C_MSG_RT,(R3)+ e Eater type code 
00 EF 2808 7215 EXTZV FTRGSO A DOR_DEST,- Get our address (without area) 
50 OF A4' OA 8DD 7216 is ADDR “DEST, *RCBSW noethas" RO 
3 50 #460 E1 7217 MOVW : Enter source node address 
57 4 4 7 18 CLAL Ry : Init check sum 
50 5A A4 ¢C E6 721 MOVZWL RCBSW_MAX_ADDR(R4),RO ; Get number of nodes 
51 O01 OD 8EA 7220 MOVL : Init the node index 
58 00000100'EF41 8 ED 7221 50$: MOVW nec MIN_C_HCR1],R8 ; Get cost-hops to the node 
83 28 B F5 7 § MOV 3; Enter cost- pee to the node 
7 8 A F8 7 ADDW R8,R : Include in checksum 
57 00 oO 8FB 7224 ADWC #0.R7 ; 1's complement add - needs 
FE 7225 3 "end around carry 
, @ FE 7 § INCL 3 Advance the node index 
EA ! f 7 SOBGTR Sat 3; Loop for each node 
83 ] 9 7 3 MOVW (R3)+ 3 Enter the check sum 
7 8ED 9 7 POPL ; Restore registers | 
0058" ¢¢ eg 3 7230 ADDL RS WQESC_LENGTH+P2(R2) ; Setup 1/0 buffer size 
5 0° DO 290€ 7231 MOVL S*#10$_WRITELBLK,RO : Setup 1/0 fect code 


0 TRN 
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~ trenem t a routing message ety 83:95:38 NETACP.SRCIJNETDLLTRN.MAR; 1 
11 CLRBIT LPDSV_XMT_RT,=- : No further need to send message 
1] LPDSB. XMTFLE(RG) : « 
} RSB ; Return to co-routine to xmit 

91 ; 

3 § ; We are an endnode. Don't send routing messages. 

91 : 

91 40 110$:  CLRBIT LPOSV_XMT_RT,- ; No further need to send message 

91 4 LPDSB_XMTFLG(R6) ; 

SIA 4 MOVL SLEVEC NO_EVT RI 3; No more events 

318 724 MOVL #1,R0 ; Allow state change 

92 7244 RSB 


Page 17 
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VOe-000 INT RTOS Transat s Phase fveezering me Sosepotoee Go:9b:38 PARLNAS Becta, vos 00 aan a0e 123, 
4 ] q ¢$ -SBTTL XMT_RT4 = Transmit a Phase IV routing message 
4 f 48 ; XMT_RTG = Transmit a Phase IV segmented routing message 
3 f 1 : Inputs: 
921 7 ; : R11 = CRI CNR address 
921 2 3 R10 = CRI CNF address 
921 4; R7 = ADJ address 
921 55 ; R6 = LPD address 
4 : g 2$ 3 R4 = RCB address 
2 : § 38 : Outputs: 
921 7260 : Rl = Next event to be processed 
3 , $1 8 RO = True if state change allowed, else false. 
921 7 8 KMT_RT4: 
53 a6 9S 921 7264 TSTB PD$B_SRM_LEFT(R6) 3; Any bits left to check? 
0B 12 2924 7265 BNEQ : Branch so ; 
926 7266 3$: CLRBIT LPDSV_XMT_RT,LPDSB_XMTFLG(R6) ; Indicate ‘‘transmission’’ done 
51 00 00 292A 7267 MOVL #LEV$C_NOWEVT,R1 ; No more events 
50 01 By 2 4 g rt: oe #1,R0 ; Allow state change 
931 7270 5$: 3 
331 f a : Allocate and setup the buffer 
59 O6A7 3 33] 7 a MOVZWL ADJ$W_BUFSIZ(R7) ,R9 ; Get adjacent node's buffer size 
046 12 2935 7274 BNEQ : Branch if ‘known’ 
59 SO A6 3C He 7275 MOVZWL LPDSW_BUFSIZ(R6),R9 ; (& should never get here) 
9 7276 :; Else, use our own buffer size 
51 9 D0 2938 7277 8&$ MOVL R9,R1 3; Indicate size of extra buffer 
0190 30 293E 7278 BSB NETSDLL_Q10_CO ; Call co-routine to allocate buffer 
003C'C 5 DO 2941 7279 MOVL RY. WOESE LENG THDt cp ) 3; Point to I/O buffer 
O038" Es 5 C 946 7280 MNEG R35,WQESC_LENGTH+P2(R2) ; Bias the 1/0 buffer size 
58 5 § 948 7281 SUBL oROLR : Subtract out required overhead 
58 00000044 8F (C6 294F 7 IVL  #4+<2*LPD$C_SRM_NODES>,RB ; Compute number of segments 
956 7 68 ; which neighbor can handle in 1 packet 
83 07 90 2956 7284 MOVB #TR4C_MSG_RT,(R3)+ : Enter type code 
83 OF AS BO 2959 7285 MOVW  RCBSWIADDR(R4),(R3)+  : Enter source node address 
83 4 2950 7 CLRB (R3)+ : Skip reserved byte 
53 DD 295F 7 PUSHL R3 3; Save address o rst segment 
961 7 i? ; bow 
961 7 83 : For each segment with it's bit set in the SRM bitmask, : 
961 7290 ; copy the associated cost/hops entries from the cost/hops matrix 
961 7291 3 into the message. Make special presisrens so that node numbers 
+d 4 38 ; less than 1, and greater than MAX ADDRESS are not sent. 
961 729% ASSUME LPDSC_SRM_SIZE EQ 32 
0 8F 8A 2961 7295 108: BICB #*C<LPDSC_SRM_SIZE-1>,- ; Make sure index is always a modulo 
A6 964 7 38 LPDSB_SRA_ 6 ; of the bitmask size ‘yrep around) 
50 5 A6 9A 2966 729 MOVZBL LPDSB_SRM_POS(R6) ,RO ; Get current position in SRM bitmask 
52 A 9 96A 7 38 INCB LPDSB ~ POS (R6) ; Update gurrent segment number 
43 SA A6 5 E 38 729 BBCC RO.LED G_XMT_SRM(R6),30$ ; Skip if segment not to be sent 
me Hh FR HART BGLROESech ag ng: Souci test ens aazty som 
: Compu 
30 ie 3 Sf 978 7302 CMPW RO.RCESW. ARK ADOR (Ra) : Higher than MAX ADDRESS? 
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YO4-000 XMT_RT4 : Transmit a Phase IV routing me aed et $3 :49538 ENETACE. SREINEYDLLTRN.MAR: 1 (87) 
4 1A 297F 7303 BGTR 30$ :; If so, do not send 
51 50 0 Ci 2981 7304 ADDL #LPDSC_SRM_NODES,RO,R1 ; Compute ending+! node address 
1 O07 2 ; 5 DECL ; gonpute ending node address 
5A AG 1 Bi 2 $ CMPW R1,RCBSW_MAX_ADDR(R4) ; End ng address < MAX ADDRESS ? 
06 18 2988 if BLEQU 3 Branch if ok 
51 SAA 3 98D 8 MOVZWL RCBSW_MAX_ADDR(R4),R1 ; Never send > MAX ADDRESS 
51 29 C 991 g 208: SUBL RO,R1 ; Compute number of nodes-1 in segment 
. 994 10 INCL R1 ; Compute number of nodes in segment 
es, 3 996 7311 BEQL 30$ : Branch if nothing to send 
Ht 1 BO 2998 7 \§ MOVW R1,(R3)+ ; Set number of nodes in segment 
0 B60 2998 731 MOVW RO, (R35) ; Set starting node address 
4 Re 99 f 14 PUSHR #*M<R2,R4,R5> 3; Save registers 
50 00000100'EF4O E 29A 15 MOVAW 65 TSA AIRC CRO] .RO ; Get address of cost/hops entries 
51 O¢ S 9A8 7 16 MULL #2,R1 ; Compute number of bytes in segment 
63 60 8 29AB 731 MOVC Ay (R3) ; Store cost/hops entries in msg 
a BA 29AF 7318 POPR #AM<R2,R4,R5> 3; Restore registers 
8 07 2981 7319 DECL 8 ; Indicate segment filled 
05 13 2983 7320 BEQL 35$ ; Branch if cannot fit any more segments 
53 AG «697 «62985 «=—7321 308: DECB LPD$B_SRM_LEFT(R6) ; Decrement number of bits left to check 
A? 14 ror f § BGTR 10$ ; Loop through all segments 
a g ¢ ; Compute checksum on all segments in message, and store it 
50 8ED0 29BA 7 6 35$:  PoPL RO ; Get address of first segment 
53 50 »Di 298D 7 CMPL RO,R3 ; Any segments at all? 
1A 13 29C0 7328 BEQL «= 708 : Branch if not 
51 01 00 ace 7329 MOVL #1,R1 : Init checksum 
51 80 AO 29C5 7330 40S: ADDW (RO)+,R1 3; Add to 1's complement checksum 
51 00 08 29C8 7331 ADWC #0,R1 ; add ‘‘end around carry"’ 
53 50 obi 29CB 7 § CMPL 0 ; At end of message? 
FS «1F «0O9CE «733. BLSSU 40 : Continue if not 
83 51 B60 +4" 7335 OVW R1,(R3)+ ; Store checksum 
3 g $$ 3; Send the message 
0038'C2 53 CO 29D F338 ADDL R3,WQESC_LENGTH+P2(R2) ; Set I/0 buffer size 
50 00° DO 2908 7339 MOVL $*#10$_WRITELBLK,RO ; Set 1/0 function code 
05 2908 7340 RSB ; Return to issue 1/0 
Spe 3e2 
390 7348 ; No segments in message. Do not send anything. 
50 D4 290C 7345 70S: CLRL RO ; Do not issue 1/0 
9 16 43 7 48 JSB a(SP)+ ; Return to abort co-routine 
FF4 31 2960 734 BRW 3$ : Indicate we are done 
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V5a-060 XMT_ART : Transmit a Phase IV area routi ~$Fb= 1 382 $3: 95:38 NETACP.SRCIJNETDLLTRN.MAR; 1 ; (88) 
3E if 9 -SBTTL XMT_ART = Transmit a Phase IV area routing message 
3 4 ; ; XMT_ART = Transmit a Phase IV segmented area routing message 
963 7353 : Inputs: 
9E f 54; : 
9E 29 § R11 = CRI CNR address 
9E3 7 2$ 3 R10 = CRI CNF address 
9E3 7357 ; R7 = ADJ address 
9E3 7 28 5 R6 = LPD address 
9E3 7359 ; R4 = RCB address 
9E 4 $9 3 
9E 61 ; Outputs: 
9E3 7 $6 ; 
9E3 7365; R1 = Next event to be processed 
E f re 3 RO = True if state change allowed, else false. 
9E3 7 06 XMT_ART: 
55 A6 8695 «(2983 «736 TSTB PDSB_ASRM_LEFT(R6) ; Any bits left to check? 
oc (12 +4 7368 BNEQ 3; Branch if so 
9E8 7369 3$: CLRBIT LPDSV_XMT_ART,LPDSB_XMTFLG(R6) ; Indicate ‘transmission’ done 
51 00 DO 29ED 7370 MOVL #LEVS$T_NO_EVT,R1 ; No more events 
50 01 00 oro 7371 MOVL #1,R0 ; Allow state change 
05 29F 1376 
9F4 73735 5$: : 
sore Pare : Allocate and setup the buffer 
59 O6A7 3C 29F4 7376 MOVZWL ADJ$W_BUFSIZ(R7),R9 ; Get adjacent node's buffer size 
04 12 29F8 7377 BNEQ 3; Branch if ‘’known’’ 
59 50 A6 3C 29FA 7378 MOVZWL LPDSW_BUFSIZ(R6) RO ; (& should never get here) 
SFE 7379 : Else, use our own buffer size 
51 59 DO 29FE 7380 8$ MOVL R9,R1 ; Indicate size of extra buffer 
0CcD 30 2A01 o38) BSBW NET SDLL Q10 CO ; Call co-routine to allocate buffer 
003C'C2 53 DO 2A04 7 Hf MOVL R3,WQESC_LENGTH+P1(R2) ; Point to 1/0 buffer 
0038'C2 53 cf A09 738 MNEG R35,WQESC_LENGTH+P2(R2) ; Bias the I/0 buffer size 
58 659 06 C AOE 7384 SUBL #6,R9, ; Subtract out required overhead 
58 00000084 8F é gale £385 DIVL #4+<2*LPDSC_ASRM_AREAS>,R8 ; Compute number of segments 
A19 7386 ; which neighbor can handle in 1 packet 
85 09 90 2A19 7387 MOVB #TR4C_MSG_ART,(R3)+ ; Enter type code 
83 OF AS BO 2AIC 7388 MOVW RCBSW-ADDR(R4S , (R3)+ ; Enter source area address 
83 94 Age 7389 CLRB (R3)+ : Skip reserved byte 
53 OD ~ [ if rt PUSHL R3 ; Save address of first segment 
A2s 7 3 : For each segment with it's bit set in the SRM bitmask, 
Ada 739 ; copy the associated cost/hops entries from the cost/hops matrix 
A2& 7394 J nto the message. Make special provisions so that node numbers 
2 2 4 + ; less than 1, and greater than MAX ADDRESS are not sent. 
Aes 7 39 ASSUME LPDSC_ASRM_SIZE EQ 1 ; && fix this 
FF 8F 8A 2A24 7 38 10$: BICB #*C<LPD$C_ASRM_SIZE-1>,- ; Make sure index is always a modulo 
3 A6 Ae? 739 LPDSB_ POST : of the bitmask size (wrap around) 
50 4A6 9A 2A2e9 7400 MOVZBL LPDSB_ASRM_POS(R6),RO ; Get current position in SRM bitmask 
54 46 26 A 7401 INCB LPDSB_ASRM_P ; Update current segment number 
50 62 A6 OS E A 74 ¢ BBCC RO -LEDSG_xAT ASRM(R6),30$ ; Skip if segment not to be sent 
A 74 CLRBIT RO,LPD$G ASRA(R6) 3 Optim ze next pass; already done 
> 96 78 2A3SA 7404 ASHL aL PDSC ASRM_SHFT,RO,RO ; compute starting area address 
008C¢ C4 91 2A3E 7405 CMPB = RO, RCBSB_MAR_AREA(R4) =: Higher than MAX AREA? 
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v04-000 XMT_ART = Transmit a Phase IV area routi 5-SEP-1984 02:19:25 CNETACP.SRCJNETDLLTRN.MAR; 1 (88) 
40 1A we 74 § BGTR 30$ 3; If so, do not send 
51 50 00000040 8F C1 2A45 74 ADDL BL POSC ASRA_AREAS .AO.R1 ; Compute ending+i area address 
1 D? 2ASD 74 3 DECL R 3; Compute ending area address 
0 D5 AGF 74 TSTL RO 3; Starting address > 0 ? 
5 1A 2A51 7410 BGTRU 15$ ; Branch if o 
6 Aas 7411 INCL RO ; Never send area #0 
008C C4 34 4 att og 15$ st eau R1,RCBSB_MAX_AREA(R4) 3 — ged age < MAX AREA ? 
; Branc ) 
51 008 C4 9A 2A5SC 7414 MOVZBL RCBSB_MAX_AREA(R4),R1 ; Never send > MAX AREA 
51 50 C2 2A61 7415 208: SUBL RO,R1 3; Compute number of nodes-1 in segment 
51 06 A64 o1§ INCL R1 ; Compute number of nodes in segment 
1D 61 A66 741 BEQL 30$ ; Branch if ee to send 
83 51 B80 2A68 7418 MOVW R1,(R3)+ ; Set number of nodes in segment 
83 50 B80 2A6B 7419 MOVW RO, (R3)+ 3; Set starting node address 
34 ee Age 7420 PUSHR #*M<R2,R4,R5> 3 Save registers 
50  00000900°EF40 E 2A 7421 MOVAW N TSAW_AREA_C_HLROJ,RO ; Get address of cost/hops entries 
51 O02 C& 2A78B 74 § MULL - ; Compute number of bytes in segment 
63 60 $, 28 2A7B 74 MOVC R1, (RO), (R3) ; Store cost/hops entries in msg 
4 BA 2A7F 7424 POPR #AM<R2,R4,RO> ; Restore registers 
58 D7? 2A81 7425 DECL R8 :; Indicate segment filled 
05 13 2A83 7426 BEQL 35$ ; Branch if cannot fit any more segments 
55 A6 97 2A85 7427 308: DECB LPD$B_ASRM_LEFT(R6) ; Decrement number of bits left to check 
9A 14 can a 3 BGTR 10$ ; Loop through all segments 
oan 7480 : Compute checksum on all segments in message, and store it 
50 8EDO 2A8A pees 35$ POPL RO ; Get address of first segment 
53 50 Di 2A8D 743 CMPL RO,R3 3; Any segments at all? 
1A 13 2A90 7434 BEQL 70$ ; Branch if not 
51 01 DO 2A92 7435 MOVL #1,R1 3; Init checksum 
51 80 AO 2A95 7436 40S: ADOW (RO) +,R1 ; Add to 1*s complement checksum 
51 00 D8 2A98 7437 ADWC #0,R1 3; add “‘end around carry’ 
53 50 Di 2A9B 7438 CMPL RO,R3 ; At end of message? 
FS = 1F «ASE §=6—7439 BLSSU 40 ; Continue if not 
83 651 0 a oat MOVW R1,(R3)+ ; Store checksum 
= Sek: ; Send the message 
0038'C2 53 CO am 7444 ADDL R3,WQESC_LENGTH+P2(R2) ; Set 1/0 buffer size 
50 00° DO 2AAB 7445 MOVL S*#I0$_WRITELBLK,RO : Set 1/0 function code 
05 2AAB 7446 RSB 3; Return to issue 1/0 
a 
ne ree : No segments in message. Do not send anything. 
50 D4 2AAC 7451 708: (CLRL RO ; Do not issue 1/0 
9E 16 2AAE reas JSB a(SP)+ ; Return to abort co-routine 
FF35 31 2ABO 745 BRW 3$ 3; Indicate we are done 
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yo4-000 CHK_10 oS check for multiple transmits eet 3:95:38 ENETACE. SREINETDLLTRN.MAR: 1 ’ (89) 
. 7436 = -SBTTL CHK_IO = Check for multiple transmits 
AB 7487 : CHK_I10 = See if its okay to transmit a message 
AB F235 ; This routine ensures that only 1 transmit is outstanding at a time. 
“ 80 : This restriction applies only to non-broadcast circuits. 
AB 7489 : Inputs: R6 = LPD address 
ABS 74635 ; 
ABS 7464 ; Outputs: RO = True if ok to send ; 
n £732 3 False if transmit is outstanding - cannot transmit 
AB ots, tH _10: ; See if its okay to xmit 
00 €1 2AB £798 BBC #LPDSV_ACTIVE,- : If circuit is no Longer active, 
16 22 A6 ABS 7469 LPBSW_STS(R6),70$ ; do not allow the I/0 
50 01 00 2AB8 7470 MOVL # - Assume its okay to xmit 
08 22 A6 0A «CE? ABB rari BBC #LPDSV_BC,LPDSW_STS(R6),20$ ; If broadcast circuit, its ok 
ace 7478 : Allow up to 20 transmits at a time for NI circuits 
15 1B AB 91 2ACO 7475 CMPB ss LPDSB_ASTCNT(R6),#21 =; Is AST queue getting too big? 
OA 1B 2AC& 7476 BLEQU § 90$ :; If not, allow it 
06 = =11 sce ee BRB 70$ ; Else, disallow it 
sace at > Allow only 1 transmit at a time for point-to-point circuits 
01 18 A6 91 2ACB 7481 208: CMPB LPDSB_ASTCNT(R6) ,#1 : Is AST queue getting too big? 
2Acc ease ; (ASTCNT=1 if no transmits are active, 
ert 748 ; the 1 is for the active receiver) 
02 1B 2ACC 7484 BLEQU§ 90$ : If not, allow it 
50 D4 2ACE 7485 70$: CLRL RO ; Message cannot be sent 
05 2AD0 7486 90$: RSB ; Done 
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¥54~000 NETSDLL. @10.CO = Common Q10 layer $e 138 $3: 99:38 NETACP.SRCIJNETDLLTRN.MAR; 1 : (90) 
nat 7488 -SBTTL NETSDLL_QI0_CO = Common Q10 routine 
m4 ohey ; NETSDLL_QI0_CO - Common co-routine to issue a DLL Q10 
AD1 ot88 3: Inputs: R6 = LPD address 
ae oraz $ R1 = Maximum size of optional buffer needed for Q10 
AD1 7495 ; Outputs: at Next ‘event Longword’’ to be processed 
AD1 5a} : RO Low bit set if state change is permitted, 
~4 £3 3 Low bit clear to avoid state change 
At 74399 3 R2-R4 are destroyed. 
AD1 7501 ; This routine makes a co-routine call back to the caller after it sets 
2AD1 £308 3 up the WQE for the Q10. On return from the co-routine call, this routine 
a4 £307 : will issue the Q10 and cause the appropriate event transition to be taken. 
AD1 7505 ; Input to co-routine: 
AD1 7506 ; 
AD1 7507 ; Re = WQE address 
2AD1 7508 ; R3 = Pointer to optional Q10 buffer (if any) 
2AD1 7509 ; R6 = LPD address 
2AD1 7510 ; ; 
2AD1 7511 ; R4-R5,R7-R11 contain original values. 
2AD1 £31¢ ; 
sho 7513 ; Output from co-routine: 
AD1 7514; 
2AD1 7515 ; RO = Function code for QI10 
2AD1 7516 :- 
00000000 2AD1 7517 I0sB = 0 : Define WQE extensions to hold the 1/0 
00000008 2AD1 7518 re. & § 3; status block and the Q10 parameters 
O000000C 2AD1 7519 PG == (12 3 
00000010 2AD1 7520 P3 = «(16 3 
00000014 2AD1 7521 P2 = 20 : 
00000018 2AD1 P3s8 4 z sf : 
0000001C 2AD1 752 UNC = 28 : 1/0 function (word) 
00000020 iad 7395 TOWGE LENGTH = 32 ; Size of extension (longword aligned) 
AD1 7526 NETSDLL_Q10_CO: : Common DLL Qio co-routine 
50 03 00 2AD1 bese move #WQE$C_SUB_AST,RO 3 Indicate WQE subtype 
51 22 CO 2Ad4 7528 ADDL #1OWQE"LENGTH+2,R1 : Add in WOE 1/0 extension 
2AD7 £368 ; Add 2 bytes in case CRC16 needed (X25) 
D526" 30 2AD7 7530 BSBW WQESALLOCATE : Allocate the element - always su ceeds 
20 ag BO 2ADA P38 MOVW LPDSW 4h H - : 
12 A ADD 75 : WOESW_REQIDT(R2) : Setup path i.d. 
16 9B 2ADF 753 MOVZBW S*MLeVee “Toe SUCC,- : Setup default Q10 success event 
10 Ag AE1 7534 WOESB_EVT(R2S : 
+ 3 dO ee ie 5 MOVL neve tte ; Setup default Q10 failure event 
OC A2 opyees EO’EF 9& 2AE? 75 $ VA IOAST ,WQESL_ACTION(R2)_; Setup post processing F routine 
24 ag GE AEF P38 MOVAB vats CENGTHF10SB(R2) ,R R3; Get start E extension 
8 7C 2AF3 «753 CLRQ (R35) 3; Zero the I0SB image 
8 7C 2AF5§ 7540 CLRQ (R3)+ ; Zero PS and P4 
7C AF? = 7541 CLRQ seats : gore P35 and P2 
D4 2AF9 Pohg CLRL (R3)+ oP 
08 22 a6 A £1 QaFB 754 BC #LPDSV_BC,LPDSW_S S(R R6) 108. skip if non-broadcast driver 
2C A2 00000100'EF E 2B00 7544 MOVAB NET$G_ALL_ROU, Woes LEN NGTH+ baht? Set P5 = “‘all routers’ 
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v04- NETSDLL_G10_CO = Common Q10 routine -SEP-1984 3: 3; NETACP.SRCINETDLLTRN.MAR; 1 (90) 
53 46 A2 ? BOC £342 10$: — WOESC ,LENGTH+ 10WQE eee ge pe Point to optional buffer 
40 A2 Q 8 B 5 be08 MOVW 0 OOESC  LENGTH+FUNC(R2); Store 1/0 Tunetton code 
03 12 281 1348 BNEQ 6 : Br if function supplied 
008 31 313 £208 158 BRW 2008 3; Caller bailed out of I/0 
B17 beet s If we are eget an X.25 datagram, then calculate the CRC-16 
aif £326 3; and append it to the front of the buffer. 
23 22 A6 97 E1 2817 7554 ac ’ PD$V_X25 LPDsu, STS(R6),20$ ; Skip if not X.25 datalink 
0000 8F 0 861 Bit 7555 CMPW #10$_ WRITE 3 writing a datagram? 
ic 12 2B 1336 BNEQ : $ : Branch if not 
5 DD 2B H PUSHL 3; Save WQE addre 
00 O0000106'"EF 0B 2B 7558 CRC CRC16,40,- 3; Calculate cRClé checksum 
8A Bec 7559 WQE$C *LENGTH+P2(R2),- 
C 2 BoE 7560 awaeset “LENGTH#P1 (R25 
8EDO 2B 7561 POPL . 3; Restore WQE addre 
38 A2 OO C HH £266 ADOL #2,WQESC “CENGTHoPs (2) 3; Account for CRCIE. in Length 
3¢ As 0 C B 756 SUBL #2,WQESC"LENGTH+P1(R2) ; Move back message pointer 
3c B 50 8 B38 £o68 208 MOVW RO, a@WQESC_LENGTH+P1(R2) ; Append to front of msg 
z53t £206 : If this is a write request, then journal the data 
A2 61 2B3F 7568 CMPW 30s WQESC LENGTH+PUNC (R2) , - ; Write request? 
(ono). 12 Secs 9890 — a Its 
D4B6" 30 2847 7571 BSBW NETSJNX_CO : Initialize journalling co-routine 
17 50 €9 2B4A £376 BLBC RO,25$ ~ :; Skip if journalling not enabled 
81 94 2B4D 757 CLRB R1)+ 3; Record type = start of transmit 
81 $3 3 90 2B4F 7574 MOVB LPDSB_PTH_INX(R6) ,(R1)+ ; ndex 
81 38 A2 B80 2853 7575 MOVW  WQESC “LENGTHWBE(RS) (R13 ; Length of message 
38 A2 2C 2B57 7576 MOVCS WQESC"LENGTH+P2(R2),- ; Store data into journal record 
es eee aac idle 
51 9g DO 2B5F 7579 MOVL R3,R1 ; Set ending address of record 
9E 2862 7580 JSB acsPp)+ 3; Log the journal record 
B64 7581 25$: ; 
+4 F386 ; Queue the 1/0 
B64 384 $alo.s - : Issue Q10 
B64 7585 FUNC = WQESC LENGTH*FUNC(R2) , - 
B64 £386 EFN = #NETSC_EFN_ASYN,- 
B64 7587 CHAN = UPDSw.CHANTRE) - 
B64 ie 8 1958 = WQESC_LENGTH+I0SB(R2) ,- 
B64 7 P5 = WOESC"LENGTH+P5(R2) ,- 
B64 7590 P4 = WQESC_LENGTH+P4(R2),- 
B64 7591 P = WOESC TEeetaepsic ,° 
B64 £336 2 = WOESC”“LENGTH+P2(R2) ,- 
B64 759 P1 awaest LENGTHODI (R2S ~; $Q10_S macro does a PUSHAS for P1 
B64 7594 AST ADR = B*NETSDLLQIOAST.- ; 
B64 7595 ASTPRM = R2 3; Use the WQE Bufo 35 parameter 
18 46 B ‘ 7 38 INCB LPDS ASTCNT (R6) 3 Account ys 
B 759 MOVL ; Save 1/0 status 
469° B94 759 BSBY =O séNN is NX_CO : Initialize. looneti ten co-routine 
10 50 34 B97 759 BLBC os ; Branch if journalling not enabled 
81 11 9A £600 MOVB “X11, (R1)+ ; Journal record type = Q10 
81 20 A6 «690 «=—(2B9D «07601 MOVB LPDSB_PTH_INX(RG),(R1)+ ; LPD index 
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81 40 4g B BAI 6 ¢ MOVW WQESC_LENGTH*FUNC(R2),(R1)4 ; a function a 
81 5 D BA 6 MOVL R3,(RT)+ ; Status from Q10 reque 
2 16 2BA 4 4 JSB Steph ; Log the gto ceeard 
10 5 E9 ~ fe 5 30$: BLBC ay 50$ ; Br if Ql request f ailed 
~~ 7607 : 1/0 queued. Set timer and wait for AST 
53 00000000 6B49D200 8F 7D 2BAD 5808 mova oiRse TIM BLL Ige- ; Setup 1/0 timer interval 
+44 7610 abet 100 ; in quadword VMS clock ticks 
0065 30 2BB8 7611 BSBW sE1 10 ; Cancel old timer, set new one 
OA 11 BBB £918 BRB 100$ : Continue 
4 pele : 1/0 failure. Setup status and queue WQE 
24 A2 53 BO 2BBD 7616 50$: MOVW R3,WQESC_LENGTH+IOSB(R2); Store status in IOSB field 
50 $5 DO 2BC1 7617 MOVL : Get the WQE address 
D439" 36 2BC4 7618 BSBW WOESINSQUE > Queue it 
51 00 00 2BC7 7619 100$: MOVL S*#LEVSC_NO_EVT,R1 3; Setup next event longword 
50 01 90 2BCA £630 MOVB #1,R0 ; Allow state change 
0S 2BCD 7621 RSB 
eBCE 76 § 
BCE 76235 200$: ; Caller doesn't want to issue 1/0 
3 $2 8 BCE 7624 MOVL R2,RO0 : Set the WQE address 
D42C’ 30 2BD1 7625 BSBW NETSDEALLOCATE : Deallocate it 
Fl 11 2BD4 7626 BRB 100$ 3; and return success 
2BD6 7627 
2BD6 7628 NETSDLLQIOAST 
0000 2BD6 7629 - WO ; No need to save regs 
50 04 AC DO 2BD8 7630 MOVL 4(AP),RO : Get the WQE address 
D421' 30 2BDC 7631 BSBW WQESINSQUE 3; Queue it 
04 sero 7688 aes 
51 10 AS DO 2BEO 7634 QIOAST: MOVL WQESW_REQIDT-2(R5),R1 ; Put Path i.d. into high order word 
51 0114 8F BO 2BE4 1632 MOVW #<<WQE$C_QUAL DLL>a8>!- ; ; Setup timer qualifier 
BEY 7636 LEV$C"10 rarer. 1 ; and timer event 
D414" 30 2BE9 7637 BSBW WOESCANCEL : Cancel the timer 
E258 30 2BEC 7638 BSBW IND x : Locate CNF LPD. ADJ blocks 
26 50 E€9 2BEF 7639 BLBC R : If LPD no longer exists, skip event 
1B A697 Bre 7640 DECB LPOsB ASTCNT(R6) 3 Account for AST 
D408" 30 2BF5 7641 BSBW $JAX_CO : Initialize journalling co-routine 
11 50 3 BF8 764 BLBC RO. ; Branch if journalling not enabled 
81 22 0 2BFB 764 MOVB #°x2 “ae ; Journal record type = Q10 AST 
81 20 A6 «690 ~=—s 2BF 7644 MOVB LPD$B.P TH_INX(R6),(R1)* ; LPD index 
81 40 a5 80 c0 7645 MOVW WQESC"LENGTH+FUNC(RS),(R1)+ ; 1/0 function code 
81 24 AS D C 764 MOVQ Hits} zLENGTH+10SB(R5) , (Ri) + : 1/0 completion status 
13 16 che 764 JSB a(SP)F Log, ~ o journal) ine record 
05 24 A 44 C 7648 308: BLBS WQESC_LENGTH+IOSB(R5), 226$ g hen 1/0 failed 
10 AS 14 AS 0 2C1 764 MOVB WOQESL”PM2(R5) ,WOESB_EV VT(RS) 5 Tt failure event 
£178 33 C15 7650 330s: BSBW PROC_EVT : Process the event 
£16D 0 2C18 7651 230$: BSBW KILL_WQE : Deallocate the WQE 
OF ste Fas ge 
CiC 7654 BUG_CHECK NETNOSTATE,FATAL : Signal the bug 


sm" 
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/0 timer : ~3ee 188s baitaias FARLNES Bacte vor O many 2% 18, 


e .SBTTL SET_IOTIM = Set 1/0 timer 
: SET_IOTIM = Set 1/0 timer 


: INPUTS: RS LPD ptr 
R3/R4 Quadword value of timer 
3 OUTPUTS: R5-R11 Preserved 
SET_IOTIM: ; Start the 1/0 timer 
MOVW ; Setup timer qualifier 
ne q tiner —— 
get LPD ind 
hift into weer word (REQIDT) 


wae. a 
EV 


MOVW Lppsu PTAC 
ASHL aN RT,R1 


MOVW = RO, RI 
MOVAB NE fSDLL PRC_WQE,R2 
BSBW ESRESET_TIM 


Hat 
RB), 


Dzzo 


Setup action routine address 
Reset the timer 


FOOAMOAMOOAOOAOOAMOOOOOO 


t 
0 
50 460114 8F BN 
51 20 A 
51 2] 19 if 
Pa: 
a 
5 
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VO4~000 RESET. CHAN - Cancel all device {70 “SEP-1984 $345 :32 NETACP.SRCINETDLLTRN.MAR; 1 : (95), 

: g 1623 ™ ~SBTTL RESET_CHAN = Cancel all device I/0 

: 2 187? ; RESET_CHAN = Cancel all the 1/0 queued to device. 

c 3 rer : FUNCTIONAL DESCRIPTION: 

C39 7681 : If a channel is active to the driver then call the driver to cancel ALL 

C39 «76 § ; the 1/0 on the device. A S$CANCEL is not sufficient since the PID field 

C39 7685 ; of the internal IRPs queued to the data Link driver by NETDRIVER would 

: 3 6 ¢ ; Mot match hence not all of the packets would be cancelled. 

¢ 3 £6 $ : INPUTS: R11 CRI CNR pointer 

C 3 R10 CRI CNF pointer 

: 4 reas 3 R6 LPD pointer 

¢ 3 7690 : OUTPUTS: RO Status 

C : 163¢ : ALL registers are preserved 

C39 7694 RESET_CHAN: 

C39 7695 SCANCEL_S CHAN = LPDSW_CHAN(R6) ; Cancel stuff on the queue 

50 01 0 73 £69 MOVL #1,R0 ; Return success 


i- 
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N younee 
v04- Locate CNF given LPD i 5=-SEP=1984 NETACP.SRCIJNETDLLTRN.MAR; 1 (93) 


t's 
ro 
“wv 
oe 


-SBTTL NETSGET_LPD_CRI = Locate CNF given LPD index 


ti Dat 
ET CRI 
C4 $ 9 
C4 0 ;+ 
be of 1 ; NETSGET_LPD_CRI = Locate CNR and CNF given LPD index 
C48 «(77 : 3; INPUTS R11“R9 Scratch 
C48 7704; Low byte contains LPD index 
te ff 5; R7,R6 Scratch 
C48 «(77 j 3 OUTPUTS: R11 CNX address 
C4 ah ; R10 CNF address 
C48 7709 ; R9-R7 = Garbage 
C48 7710 ; R LPD if low bit set in RO | 
C48 «7711 ; R Low bit set if successful 
C4 aay ; Low bit clear otherwise 
C4 771 ° tae | 
C4 7714 NETSGET_LPD_CRI:: 
5B QO000000°EF DO 2C48 7715 move NETSGL_CNR_CRI,R11 ; Get data base root for CRI 
SA D4 C4F 7716 CLRL 3; No CNF ye 
4D 10 C51 7717 BSBB NETSF IND_LPD 3; Find the LPD via index in R8 
18 50 «6&9 «62C53 «(7718 BLBC RO,10$ ; If LPD then none | 
50. 58 800 038 7719 MOVL R11,R0 ; Make a copy 
58 20A6 3C 259 7720 MOVZWL LPO$W_PTH(R6) ,RB : Get full LPD path i.d. 
50 60 00 2C5D 7721 S$: MOVL CNFSL~FLINK(RO),RO > Get next CNF 
5B 450 «Di «2cé60 677 ¢ CMPL RO,RIT ; At head of List? f ; 
OC 13 2C63 77 BEQL ~=—«C108 ; If EQL yes, return with LBC in RO 
12 A0 «658 ~ «2B C65 7724 CMP R8, CNFSW_ID(RO) 3 This it? 
F2 12 2C69 7725 BNEQ 5$ : If NEQ keep trying 
5A 50 00 2C6B 7726 MOVL RO,R10 ; Copy CNF address | 
50 00° DO 2C6E 7727 MOVL § S*#SS$_NORMAL,RO : Set status 
05 2C71 7728 10$: RSB 3; Done 
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-SBTTL WNETSADJ_LPD_CRI = Locate CNF given ADJ index 


sc" tt 
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reo 
v 
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ti Dat 
DJ_LPD_CRI 
C72 7730 
C7 44 1% 
34 of j ; NETSADJ_LPD_CRI = Locate CNR and CNF given ADJ index 
C72 7734 ; INPUTS R11-R9 Scratch 
C72 7735; Low byte contains ADJ index 
cf of § : R7,R6 Scratch 
C7 a 8 ; OUTPUTS: R11 CNR address 
C7 739 ; R10 CNF address 
C72 7740; R9O-RB Carhege 
C7 a bg $ R7 ADJ address 
C7 os 3 R6 LPD address 
C72 7743; RO Low bit set if successful 
C72 7744; Low bit clear otherwise 
C72 7745 :- 
C7 7746 NETSADJ_LPO_CRI:: 
5B OO000000'EF DO 2C72 7747 move NETSGL_CNR_CRI,R11 ; Get data base root for CRI 
5A 04 2C79 7748 CLRL R10 : No xe 
49 10 C7B 7749 BSBB NETSF IND_ADJ 3 Find LPD & ADJ via index in R8& 
18 50 €9 2C7D 7750 BLBC RO,10$ : If LPD then none 
50 58 00 2¢80 7751 MOVL  R11,RO : Make a copy | 
58 2006 3C 2C83 o3¢ MOVZWL LPD$W_PTH(R6) ,RB : Get full LPD path i.d. 
50 60 00 2C87 7753 5S: MOVL  CNFSL~FLINK(RO) ,RO : Get next CNF 
5B 450 «Di = eCBA 7754 CMPL = RO, R1T ; At head of List? ; 
0c 13 2c8D 7755 BEQL ~=s«i108 : If EQL yes, return with LBC in RO 
12 AO 58 B1 CBF 7756 CMP R8,CNFSW_ID(RO) 3; This it? 
Fe 12 2C93 7757 BNEQ 5$ 3: If NEQ keep trying 
5A 50 00 2C95 7758 MOVL RO,R10 ; Copy CNF address 
50 00° 00 2098 7759 MOVL § S*#SS$_NORMAL,RO : Set status 
05 2C9B 7760 10S: RSB 3; Done 
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L 16 
talink control layer 1 miles 9 Ot: 1:35 VAX/VMS M 


Da 

LPD = Locate LPD given CNF “SEP-1984 02:19:25 CNETACP.S 
r768 -SBTTL NETSLOCATE_LPD = Locate LPD given CNF 
£764 > NETSLOCATE_LPD 

£766 i : INPUTS: R11 CNR address 

776 ; R10 CNF address 

£708 3 R9-R6 = Scratch 

5788 ; OUTPUTS: R11,R10 Preserved 

2771 ; RI-R7 Garbage 

org : R LPD if low bit set in RO 

7773 ; Zero if low bit clear in RO 
7774 : RO SS$_NORMAL successful 
orn ; SS$_DEVINACT otherwise 

7777 WETSLOCATE_LPD:: 

7778 MOUZWL "CNFSW_ 1D(R10) ,R8 ; Get LPD i.d. 
7779 : And ath thru 


cro v04-00 
RCIN NETDLLTRN.MAR; 1 


M 16 
i -SEP- 221: a | 
tal nk control COEF ae 19 SEP 138% O44 :32 AX/VMS Macro V04-00 Page 188. 


Vi - Routing & Da 
V NETSFIND_LPD = Find LPD given L -SEP-19 NETACP.SRCJNETDLLTRN.MAR; 1 
; ai 1 : -SBTTL NETSFIND_LPD = Find LPD given LPD index 
7 of $ 3; NETSFIND_LPD = Find LPD given LPD index 
CA if 5 ; INPUTS: R8 Low byte contains LPD index 
CAO 77 § : R6 Scratch 
CAO 7787 ; 
CAQ 7788 ; OUTPUTS: R8 Sorbege 
CAO 7789 ; R6 LPD if low bit set in RO 
CAO 7790 ; Zero if low bit clear in RO 
CAQ 7791 ; RO SS$_NORMAL if successful 
CA £738 3 SS$_DEVINACT otherwise 
CAO 7795 :- 
CAO 7794 NETSFIND_LPD:: 
50 conegeee't DO 2CAO0 7795 AOVL We TSEL_PIR_VCB.RO 3 Get the RCB address 
58 8 9A 2CA? 7796 MOVZBL R8,R8 ; Get low byte of LPD index 
ig 13 2CAA 7797 BEQL 0 : If EQL then there's none 
5¢ AO 5 91 CAC 7798 CMPB R8 ,RCBSB_MAX_LPD(RO) 3; Within range ? 
0C 14 2CBO 7799 BGTR ; If not, branch 
56 28.8048 00 CBe 7800 MOVL § @RCBSL_PTR_LPD(RO)CR8].R6 ; Get LPD address 
0S 18 2cB 730) BGEQ : Branch if not valid 
50 00° oO 2cB9 7 8 MOVL S“#SS$_NORMAL ,RO ; Indicate success 
07 +11 «=2CBC 780 BRB 15$ 3 Take common exit 
56 04 2CBE 7804 10$: CLRL R6 3; Nullify LPD pointer 
50 0000'8F 3C¢ <by 7805 MOVZWL #SS$_DEVINACT,RO : Indicate failure 
05 2ccS 7806 15$: RSB 


B 1 
‘Ney RN - Routing & Datalink gonsrot layer 16-SEP-1984 1:35 VAX/VMS Macro V04-00 Page 187 
5u-500 NETSFINDSADU = Find LODE ADJ gtgen ADJ SaSEP21984 02:19.25 ENETACE. SAeINEYDLE SRN. MAR: 1 2% 183) 
ce6 if 43 ~SBTTL NETSFIND_ADJ = Find LPD & ADJ given ADJ index 
354 if 19 3 ; NETSFIND_ADJ = Find LPD & ADJ given ADJ index 
Ct6 7 \¢ i ; INPUTS: R8& Low word contains ADJ index 
CC6 781 : R6-R7 = Scratch 
CC6 7814 : 
CC6 7815 : OUTPUTS: R8 Garbage 
CC6 7816 ; R7 ADJ address 
CC6 7817; R6 LPD eddress 
CCé6 a : RO SS$_NORMAL if successful 
stCé 3) ; SS$"DEVINACT otherwise 
CC6 7820 ;:- 
2CC6 7821 NETSFIND_ADJ:: 
50 QOO000000'EF DO 2CC6 78 § MOVL NETSGL_PTR_VCB,RO ; Get the RCB address 
58 58 3C 2CCdD 782 MOVZWL R8,R8 ; Get low word of ADJ index 
1¢ 413 2CD0 7824 BEQL 0 : If EQL then there's none 
68 AO 58 Bi 2CD2 7825 CMPW RB, RCBSW_MAX_ADJ (RO) ; st ips range ? 
16 14 gcD6 7826 BGTR 10 not, branch 
57 2¢ B048 DO 2CD8 7827 MOVL  a@RCBSL_PTR_ADJ(RO)CR8], nb: get ADJ address 
OD 67 00 E1 2CDD 7828 BBC #ADJSV—IN NUSE genie STS(R7) ~~ ty slot not in use 
58 02 A? 9A 2CE1 1829 MOVZBL ADJ$B_CPD_INX(R7) ,R8 bp index 
56 288048 DO 2CES 78 0 MOVL  aRCBSC_PTR ND CROSERBI, ai? g* LPD address 
50 DO gceA 783 MOVL ar pess “NORMAL ,RO + indicate success 
05 2CED 7832 RSB 
2cEE 7833 
57 D4 2CEE 7834 10$: CLRL R7 ; Nullify pointer 
50 O000'8F 3C 2CFO 7835 MOVZWL #SS$_DEVINACT,RO ; Indicate failure 
05 2CFS 7836 RSB 


NETOLLTRN - Routing & Datalink control laye 16-SEP-1984 01:21:35 VAX/VMS Macro v04-00 Page 188 
‘woerbbo NETSGET PLVECLPD - Find next layer | cep SSEB=1986 83:95:38 FARINES Bacto von OO wans1 29° 188, 
| ce 4 Fa -SBTTL NETSGET_PLVECLPD = Find next active LPD 

fe f re ; *NETSGET _PLVECLPD - Find next active LPD using the indicated Line (PLVEC) 
CF6 7 2g ; INPUTS: R4 PLVEC index 
ee 4 iz 3 : RI Previous LPD index (scan starts with R1 +1) 
CF6 7845 : OUPUTS: R1 New LPD eddress 
CF6 £oeg : ; RO SS$_NORMA if successful 
4 | oete ie ; SS$_ DEVINACT otherwise 
CF6 eee NETSGET oPLVECLPD: § ; Find next active LPD using this Line 
53 DD 2CF6 7850 PUSHL 3; Save reg 
53 QOO000000'EF DO 2CFB 7851 MOVE NETSGL_PTR_VCB,R3 ; Get the RCB address 
51 06 2CFF 1826 20$ INCL R1 : start at next LPD 
5C AS 51s 2101 Ae CMPB R1,RCBSB_MAX_LPD(R3) ; Within range ? 
1A 1A 2005 «7854 BGTRU 1006$ If not, branch 
50 288341 D0 2007 7855 MOVL @RCBSL_PTR_LPD(R3)CR1],RO Get next LPD address 
Fl 18 2D0C 7856 BGEQ 2 branch if not valid 
00 €1 2D0E 7857 BBC wLPosy ACTIVE ss ; Is LPD active ? 
EC 22 AO 2010 7858 PBSW_STS(RO) ,20$ ; If BC then no 
28 AO 54 91 2013 7859 CMPB RG LPDSB. PLY EC tROS ; Is it using the indicated Line? 
E6 12 2D17 7860 BNEQ 208 : If EQL es, we've found the LPD 
51 50 00 2D19 7861 MOVL RO,R1 ; sony LP pointer 
50 00° 00 2DdiC 786 MOVL S“#SS$_NORMAL ,RO ; Indicate success 
07 +11 2DIF 786 BRB 110$ : Take common exit 
51 D4 2D21 7864 100$: CLRL R1 ; Nullify LPD pomnner 
QO00'8F 3C 2023 7865 MOVZWL #SS$_DEVINACT,RO ; Indicate failure 
53 BEDO 2028 7866 110$: POPL R3 ; Restore reg 
05 2D2B 7867 RSB 
2D2C 7868 
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NETDLLTRN - Routing & Datalink control Layer 16-SEP-1984 01:21: AX/VMS Macro V04-00 Page 189 
Voaeobe TELL-NETORIVER - Inform NETORIVER of an geen 1882 83:95:32 NETACP.SRCIJNETDLLTRN.MAR; 1 . (83) 

; : q 0 -SBTTL TELL_NETDRIVER = Inform NETDRIVER of an event 

: f if ; TELL NETDRIVER - Inform NETDRIVER of an event 

D2eC 7874 ; INPUTS: RO = Function code (NETUPD$_DLL_) 

Dec 7875 ; R6 = LPD address 

Dec 7 £6 s 

D2C 7877 ; OUTPUTS: RO = Status 

Dec 7 8 : 

4 : if ; ALL other registers are preserved. 

Dec 88 TELL_NETORIVER: : 

3—E BB 2d2C 7 ¢ PUSHR #*M<R1,R2,R3,R4,R5> ; Save critical re 
55 OQOO00000'EF D0 bee ree MOVL NET$GL_NET_UCB,R5 : 
52 ete | tlh DO 2D 7884 MOVL NETSGL_PTR_VCB,R2 ; Get RCB 
51 6 DO 2Dd3C 7885 MOVL R6, ; Get the LPD address 
D2BE' 30 2D3F 7886 BSBW CALL_NETORIVER 3 Tell NETDRIVER 
3E BA 2042 7887 POPR #°M<R1,R2,R3,R4,R5> ; Restore regs 
05 2044 7888 RSB 
D45 7889 .END 
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Symbol table . : ot 7 $3395 :32 UNETACE. SREINEYDLLTRN.MAR: 1 (99) 
LEVSC_STA_W = 4 LPDSM_TOGGLE = 1 
LEVSC_STA_Y = 2 LPDSM_XMT_IDLE = 
LEVSC"STRT_TIM z 1A G LPDSM_XMT_STR z 
LEVSC_UNJAM = 93 G LPDSM_XMT_VRF = 0004 
LEV$C_x25_CALL = 00 17 G LPD$Q-REQ "WAIT z 00 
LEVSC_X25_RESET = 00000019 G LPD$V_ACCESS = 
LEVSC"XMT~ IDLE = 00 OF G LPDSV-ACTIVE = 000 
LEV_AC_AC 000 R 02 LPD$V_ALIGNQ s 8 Soe 
LEV_B_PRIORITY 0 fe R 04 LPDSV_ALIGNW = 00000000 
_L_ADJ 8 00010 R 04 LPD$V_BC = 0000000A 
LEV_L_LPD QOOOC R 04 LPD$V_DLE = 00000002 
“a"CRI 0 30008 g 04 LPDSV_ELECT_TIM s 8 3 F 
LEV_Q"PSWDESC 0000024 R 04 LPDS$V_ INCOMING = 9 
LEV_W_BLKSIZE 44 dE R 04 LPDS$V_PVC_ACCESS = 00 BR ano 
LEV~W_HELLO 0000020 R 04 LPD$V_PVC_ACCESSED = 8 000 
LEV W_PNA 00000014 R 04 LPDSV_PVC_RESET = 00002 
LOWEST_PRIO_BRA OOOO TE AD R 06 LPD$V_PVC_RESTRT = 44d 
LPD$B_AsRM_CEFT = 0000005 LPDSV_RBF = 00000006 
: LPDSB_ASRM_POS = 00000054 PDSV_RUN = 00000004 
| LPDSB_ASTCRT = 00000018 = 00000001 
LPD$B_BCPRI = 0000002A = 0000000C 
LPDSB_CNT_IFL = 0000004F = 00000007 
LPDSB_CNT_LDN = i444 043 = 00000005 
LPD$B_COST = 0000002 = 44 444 
LPDSB_ETY = 0000001D = 44 4 44 
LPD$8_IRPCNT = 44444 54 = 00000003 
LPDSB_PLVEC = 4404 = 00000004 
PD$B_PTH_INX = 00000020 = 00000001 
LPDSB_PVCFLG = NTE = 4a T 3 
LPDSB_SRM_LEFT = 000000 = 0000005 
LPD$B_SRM = 00000052 = 00000014 
LPD$B_STARTUPS = 00000008 PDSW_ = 0000002C 
LPD$B_STI = BRO RSS e = 00000018 
LPD$B8_ SUB = 0000002 POSW_ = 44 it 
LPOSB_TSTCNT = QOOOQ001A LPD$W_STS = 000000 
LPDSB_XMTFLG = alee tp LPDSW_TIM_TLK = 00000016 
LPDSB_XMT_IPL = 0000001F LSN 44 R 06 
LPD$B_XMT_ SRL = 94444 $43 MAX_COST 00000030 R 04 
LPDSC_ASRA_AREAS = 0000004 MAX_HOPS 0000002C R 04 
LPDSC_“SRM_SHFT = 00000006 MAX_SRL 000 oye R 02 
LPDSC_ASRM SIZE = 00000001 MC1 B65 7F5 R 06 
LPD$C_LENGTH = 0000006A MOVIT O0027ED R 06 
LPDSC_LOC_INX = 00000001 OVITU 000027F8 R 06 
LPDS$C_SRA_ = 389 t44 MSG_MAP_ TABLE 00000084 R be 
LPDSC_SRM_SHFT = 00 NETSAB_EVT_WQE aeeeeeet § X 
LPDSC_SRM_ SIZE = 44 4 it 38 NETSADJ_LPD_CRI 00002C72 RG 06 
“ASRA = 0000005E NETSALLOCATE aeneeere =X = 06 
~SRM = 300 $26 NE TSALONPGD_Z aeeeeeee =X 6 
LPD$G_XMT_ASRM = ‘4 62 NETSAL_AREA-CH 1A88 RG 5 
LPD$G_XMT_SRM = $ OO05A NETSAL_CH_ VEC 980 RG 5 
LPDSL_ABS— = 000 $ $ NETSAW_AREA_C_H 900 RG 8 
LPDSL_RCV_IRP = 00000 NETSAW-MIN_C_A 100 RG 5 
LPDSL-RTR-LIST = 000 Boat NETSC_ACT_TIAMER z 1 
LPD$L_UCB = 0000001 NE TSC_EFN_ASYN z 
LPOSM_PVC_ACCESS = 8 001 ETSC_EFN_WAIT s 
LPDSM_PVC"RESET s O08 NETSC_IPL = $ 
LPDSM_PVC_RESTRT = 00000002 NE TSC"MAXACCFLD = 
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5 VAX/ 
Symbol table 5 (CNET 
NMASC_LINSS_ASE = 00 006 NSPSM_FLW_DRV = FO | 
NMASC~LINSS-FAI : 8 NSPSM-FLW-INT : 2 | 
NMASC"LINSSSTA = 00 NSPSM~F LW” INUSE : 
NMASC"LINSS~SYN = 00 A NSPSM~FLWLISUB : vs 
NMASC"STATE OFF = 00 1 NSPSM~FLW"MODE = 3 | 
NMASC~STATE ON = 0 : NSPSM~FLW"SP1 s 8 | 
NMASC“STATESER s 9 NSPSM-FLU-SP¢ 2 4 | 
000089E R 06 NSPSM-FLU7SP : 80 | 
FATAL 9000881 R 6 NSPSM-FLW”XOFF : 1 
NSPS$$_QUAL_A = 0000000 NSPSM~FLW"XON 2 02 | 
NSPS$$$~QUAL ~ALTFLW = 00000000 NSPSM~ INF -VER = 000000 | 
NSPS$$$_QUA = 90000000 NSPSM“MSG~ INT * 00 02 | 
NSPS$$_QUAL ~FLW = 00 NSPS “HSG>L1 2 
NSP$$$_QUAL ~ INF = 90000000 NSPSM~SRV-01 = 000 00 
NSPS$$_QUAL ~MSG = 0000000 SPSM-SRV-EXT 2 00 0 0 | 
NSP$$$~QUAL “SRV = 00000000 NSPSM~SRV~FLW = 0000000 
NSPSC_EXT_LAK = 0000001E NSPSM~SRV-REQ = 000000F 
NSPSC~FLW-DATA : 90000000 NSPSM~SRV~SP1 = 0000007 | 
NSPSC~FLW~INT = 00000001 NSPSR-QUAL = 9000000 
NSPSC~FLW”NOP = 00000000 NSPS$S~ACK_NUM = 0000000C 
NSPSC_FLW_XOFF = 00000001 NSP$S-ACK-SP2 = 0000000¢ | 
NSPSC~FLW7XON = 90000002 NSP$S~DATA SP = 0000000 
NSP$C~HSZ~ACK = 0000000 NSP$S~FLW_CHAN = 90000002 
NSPSC"HS7~CA = 00000003 NSPSS~FLW7D = 00000004 | 
NSPSC"HS2~CC = 00000064 NSPSS~FLW”MODE = 90000002 | 
NSPSC"HS2~CD = 000000F0 NSP$S~INF “VER = 0000000 | 
NSPSC"HS7~CI = 000000F0 NSPS$S_MSG~SP1 : 80000004 
NSP$C~HSZ~DATA = 00000009 NSPS$S"NSPASG = 00000005 
NSP$C~HSZ~DC = 00000016 NSP$S~QUAL = 00000005 | 
NSPSC"HSZ~DI = 00000016 NSP$SQUAL_ = 900 0002 | 
NSPSC~HSZ~INT = 00000009 NSP$S~QUAL ~ALTFLW = 00000001 
NSPSC"HS2~ = 00000009 NSP$S~QUAL~ = 90000001 | 
NSPSC~INF-V31 = 00000001 NSP$S~QUAL FLW = 00000001 | 
NSPSC~INF-V3 = 00000000 NSP$S~QUAL ~ INF = 00000001 | 
NSPSC~ INF V3 = 90000002 NSP$S~QUAL -MSG : 9000005 
NSPS$C~MAXADR = 0000000 NSP$S_QUAL ~SRV = 00000001 | 
NSPSC"MSG_CA : 90000024 NSP$S~SRV_ 2 9000000 | 
NSPSC"MSG~CC = 000000 8 NSP$S~SRV7F LW = 0000000 | 
NSPSC"MSG~ = 0000001 NSP$S~SRV~SP1 = 0000000 
NSPSC"MSG~DATA : 90000000 NSPSV~ACK“NAK : 00 000¢ 
NSPSC~MSG~ = 0000004 NSPSV~ACK~NUM = 0 0 00 | 
NSPSC"MSG~ : 90000058 NSPSV"ACK~SP2 = 0 00D | 
NSPSC"MSG~DTACK = 0000 04 SPSV"ACK-VALID = 0000000F | 
NSPSC-MSG~INT : 9000 0 NSP$V~DATA_ BOM = 0 0005 
NSP$C_M5G_LIACK = 14 NSP$V~DATA_EOM = 6 
NSPSC"MSG~ = 00000010 NSPSV~DATA_OVFW = 00 0 0 | 
NSPSC~SRV7MF C = 9000002 NSPSV~DATA"SP = 00 09 | 
NSP$C_SRV-NFC = 00000 NSP$V~FLW_CHAN : 6 0 | 
NSPSC~SRV~RE = 00000001 NSPSVFLWTDRV = 04 | 
NSPSC~SRV7SFC = 0 001 “FLUO INT = 5 | 
NSPSMACK~ = 0 V7FLW7INUSE = 4 | 
NSPSMACK~ = OFF NSPS$V~FLWLISUB = | 
NSPSM_ACK- VALID = 08 $V-FLW_MODE = 
NSPSM~DATRA s 0 “FLWTSP1 s | 
NSPSM~DATA~EOM 2 v4 NSPSVFLUTSP = $ | 
NSPSM~DATA~OVF = 80 NSPSV"FLW7SP = | 
NSPSM_FLW_CHAN = ¢ NSPS$V_FLW_XOF F = 0 
| 
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NSPSV_FLW_XON = 1 RCBSB_MAX_ SNK = 905D 
NSPS$V_INF_VER = 9 RCB$B_STATUS = 308 
NSPSV_MSG_INT = RCB$B_STI = 
NSPSV_MSG_LI = 4 RCBSL_PTR_ADJ = 
NSPS$V_MSG_SP1 = RCBSL_PTR-AOA = 
NSPS$V_SRV_01 = RCBSL_PTR_JNX = 
NSPSV-SRV-EXT = 6 RCBSL_PTR-LPD = : 
NSPSV_SRV_FLW = 9 é RCBSL-PTR-OA z 9 C 
NSPS$V_SRV~SP1 = 00 : RCBSV_LVL2 = 3 0 
NSP$W_DSTCNK = 00000001 RCBSW_ADDR = E 
NSPSW_SRCLNK = 00003 RCBSW_ALIAS = 0000008) 
8 ae? 8 06 RCBSW_CNT_NUL = $88 O94 
NULL 0003C R 4 RCBSW-DRT = AA 
NUM_AREAS = 44 ok RCBSU ECL SEGSIZ = 4 07C 
NUM_CIRCS = 00000041 RCBSW_LVL = QO0000AC 
NUM_NODE S = 00000400 RCBSW_MAX_ADDR = 0000005A 
OPL 0000086A R 06 RCBSW_MAX_ADJ = ats 
OPR_EVT_MAP 4 R 0 RCBSW_MAX_ = 00000058 
Pl = 0000001 RCBSW_MAX_PKT = 00000082 
Pp = 00000014 RCBSW_MAX"RTG = 0000006A 
Pp = 00000010 RCBSW_MCOONT = 00000054 
Ps = 0000000C RCBSW" TOTBUFSIZ = 4st 
PS = 00000008 RCV_ART 00000BC3 R 06 
PARSE_PH2_ADDR 00000C8B R 06 RCV_EHEL 00000A91 R 06 
PARSE_PH3_ADDR 00000CB8B R 06 RCV_RHEL OOOOOADE R 06 
PARSE_PH4 ADDR 00000CB8 R 06 RCV_RT OOOOOAES R 06 
PARSE_VERSION 00000D04 R 06 RCV_RTS OQOOOOAFS R 06 
aa 0000084F R 06 RCV_RT4 0000866 R 06 
PLVECS$AB_DEV eeeeeere =X 06 RCV~STRE 0000889 R 06 
PLVECS$AB_REFC eeeeneee§ X 06 RCV-STR 0000915 R 06 
PLVECSAB_STATE teeeeeee X 06 RCV-STR4 0000971 R 06 
VECSAL_ eeerenee KX 06 REV VRE S Son ace R 06 
PLVECSAW_ CHAN aeeeeere xX 06 RCV-VRF OO009DF R 06 
PLVEC$GB_ eeereree XX 06 RCV-VRF4 OOOOO9DF R 06 
RS$_IPL eeereeee =X 07 REATH_EVT 00000000 R 05 
PROT_ART 0000138E R 06 REQUEST UPDATE 0000142D R 06 
PROC_EVT 00000093 R 06 RESET_CRAN et 9R 06 
PROC" RT 0000126A R 06 RTGFLG Bae 040 R 04 
PSIST_NCB_PKTSIZE = 00000015 RTG_CHG 0000080 R 05 
PSI$SC_NCB_PVC = 00000018 RTG_CHG_LEN = 00000080 
PSISC_NCB_REMDTE = 00000001 RTG_V_ROS = 00000000 
PSISC_NCB_WINSIZE = 4 4 9h RTG_V_UPD = aise 
PSISC_RESET = 0000000 SET-DCL_EVT 00000D5B RG 06 
PSISC_RESTART = 8 0 SET-1OTIM B88 sceo R 06 
PTYPE 8R 04 ix eee = 001 
PTY_TO_PHASE 0000014A R 03 SS$_BADPARAM aeeeeeee =X 
PTY_TO_VERSION 00000154 R SS$_DEVINACT eekeeeee x 
QIOAST EO R 06 SS$_INSFARG kereeeee x 
RCBSB_ACT_DLL sa $ SS$_INSFMEM aeeneeee =X 
RCBS$B_CNT_APL = SS$_NORMAL aeneeeee =X 
RCBSB_CNT— = 94 SS$_~NOSUCHDEV teeeeeee = X 
RCBSB_CNT_PFE = 97 388 RESET aeeeeeee =X 
RCBSB_CNT_ = 98 TART_XRT QOO1A4A 
RCBSB_ETY = 9 A SIR¢ 0 er 
RCBSB_HOMEAREA = STR 77A 
RCBS$B_MAX_AREA = 9 C STR4 Ac 
RCB$B_MAX~LPD s C STRT_TIMER_TICK 41 
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SYSSDASSGN eerereee GX 
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TIMER_RUS 
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Lg sal “uate” RTS 


TR4S 
TR4$S_ADDR_AREA 
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X52- PVC_ SHUTDOWN 
“SHUTDOWN 
X25-STAR UF 
m$0_ERR_FATAL 
xnSV- ERR “MAINT 


Xm 
XMTFLG 


XMT"VRF 
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tem nwo mon seme caem + 


: Psect synopsis ! 


ew ew mo cae ee} 


PSECT name Allocation PSECT No. Attributes 
» Mb i% 00000000 ( -) 0O ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT 
SABSS 44 ed ( ) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE R WRT 
NET PU 0000168 ( 360.) ( 6° NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT 
TABCES_ PURE Q0004A0 ( 1184.) ( on PIC USR CON REL GBL NOSHR NOEXE RD NOWR 
NET | 8 042 ( g -) QO4 ¢ 4.) NOPIC USSR CON REL LCL NOSHR NOEXE RD WRT 
TABCES IMPURE 002B90 (11152.) 05 ¢ 5.) NOPIC USR CON REL GBL NOSHR NOEXE RD WRT 
NET_COBE 0002045 (11589.) $ ( 6.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT 
NET_LOCK_CODE 000000BD <« 189.) ( 7.) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT 
¢essoreue See toe owen noa ae + 
! Performance indicators ; 
power wee meee coe woe OHS 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 90:00:00.1 80:80 :00-68 
Command processing 124 fe 1.04 00:00:04. 
Pass 1 2249 00:01:17.81 00:01:58.31 
Symbol table sort 2 83:20: ot i Ss Be 
Pass 2 1521 00:00:22.39 00:00:35. ‘ 
Symbol table output 1 00:00:00.66 00:00:00.7 
Psect synopsis output 4 00:00:00.04 00:00:00.12 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 3934 00:01:47.95 00:02:46.98 


The working set Limit was 1650 pages. 

418475 bytes (818 pages) of virtual memory were used to buffer the intermediate code, 

There were 210 pages of symbol table space allocated to hold 3408 non-local and 643 local symbols. 
7889 source Lines were read in Pass 1, produc ing v0 object records in Pass 2. 


76 pages of virtual memory were used to define 


Macro Library name 


“$255$DUA 8: SYS.OBJJLIB.MLB; 1 
$255$DUA28: (SYSLIBJSTARLET.MLB; 
TOTALS (all Libraries) 


ean 


-8255$DUA 8 SHRLIBINMAL IBRY.MLB; 1 1 


: CNET 
: CNETACP.OBJ JNET.MLB; 1 


macros. 
oe eeeeoeoeoooeecesooceeo=} 


+ - - 
; Macro library statistics : 


Macros defined 


2 


3429 GETS were required to define 47 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:NETDLLTRN/OBJ=OBJ$:NETDLLTRN MSRC$:NETDLLTRN/UPDATE=(ENHS:NETDLLTRN) +EXECML$/LIB+L 1BS:NET/LIB+LIBS:NETORV/LIB*+SHRLIBS 
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